Select Code to Download

#!/usr/bin/perl
# send notification here
my $gif=`cat null.gif`;
print "Content-type: image/gif\n\n$gif";

for $a(-2,12){for $b(0..7){$c=0;$_?hex substr(ef7fa1866706caeff0228940
+2844,
2*$_+$a,2)&2**(7-$b):0 and $c+=2**(7-$_)for(0..7);print chr $c;}}