use HotBits;
my $HotBits = new HotBits::;

my $val=$HotBits->request (32);
$val=unpack('%32b*', $val)%2;

if($val==1){print "Heads\n";}else{print "Tails\n";}