use HotBits;
my $x = new HotBits::;
my $n1 = $x->request (1);
($n1 & 1) ? print "Heads\n" : print "Tails\n";