#!/usr/bin/perl

$fn = shift ;
$ans = `./a.out | cksum` ;
$ans =~/([0-9]*)/ ;

printf "%x\n", $1 ;