Well... (completely untested)

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

Okay, I lied and just tested it, and it's giving me all heads. Maybe i'm just being lucky =-) (it's entirely more likely that I'm just being buggy)

~Cybercosis nemo accipere quod non merere