print "The coin flew out of sight, sorry. No answer, and you're out $0
+.25.\n";
[download]

Seeing as you're using double quotes, won't the $0 be interpolated? I doubt this is what you intended, so you might want to consider escaping the $ or using single quotes and concatinating the newline onto the string.

Ooops. Fixed it up there. What can I say... it was late last night when I did all that. :)

And I considered putting it in Obfuscated Code, but, while it may be obfuscated in spirit, it's really just straightforeward perl. No trickery or anything.

--Psi
print(pack("h*","e4f64702566756e60236c6f637560247f602265696e676021602075627c602861636b65627e2")."\n");

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

~Cybercosis nemo accipere quod non merere

my @array= map { qw(heads tails)[$_] } (split (//, unpack ("b*", $bits
+)));
print "@array";
[download]