Ooops, that server has gone away... The code went something like this (not exactly, but perty close).
#!/usr/bin/perl -w
use CGI;
use CGI::Carp 'fatalsToBrowser';
CGI::ReadParse(*in);
print "Content-type: image/gif\n\n";
print Images($in{img});
exit;
sub Images {
my $image = $_[0];
my %IMG;
$IMG{dir} =
'47494638396114001600c20000ffffff'.
'ffcc99ccffff99663333333300000000'.
'000000000021fe4e5468697320617274'.
'20697320696e20746865207075626c69'.
'6320646f6d61696e2e204b6576696e20'.
'4875676865732c206b6576696e684065'.
'69742e636f6d2c2053657074656d6265'.
'7220313939350021f90401000002002c'.
'000000001400160000035428badcfe30'.
'ca4959b9f8ce12baef45c47d64a629c5'.
'407a6a8906432cc72b1c8ef51a13579e'.
'0f3c9c8f05ec0d4945e171673cb2824e'.
'2234da495261569856c5ddc27882d46c'.
'3c2680c3e6b47acd232c4cf08c3b0100'.
'3b';
$IMG{bomb} =
'47494638396114001600e30000ffffff'.
'ffcc33ccffffccccccbbbbbb99999988'.
'88886666665555553333330000000000'.
'0000000000000000000000000021fe4e'.
'546869732061727420697320696e2074'.
'6865207075626c696320646f6d61696e'.
'2e204b6576696e204875676865732c20'.
'6b6576696e68406569742e636f6d2c20'.
'53657074656d62657220313939350021'.
'f90401000002002c0000000014001600'.
'00048f30c949a7b85824c0bbdf49766d'.
'5e4986d916000ab07624808eddfb7dd8'.
'a60449d0768a447048e3040a258572a9'.
'a0ad14055ba7402d34351fe16f4abdc6'.
'0008a85631987a3d6204f540e6588b1c'.
'a51a603884cb6f2cba40a0db8500795f'.
'2c557f808249078a08124a8167688b8d'.
'8e881e03418d42789096434a658f709d'.
'9f66a225a7820955abac5442194cb1b2'.
'5711003b';
$IMG{back} =
'47494638396114001600c20000ffffff'.
'ccffff99999966666633333300000000'.
'000000000021fe4e5468697320617274'.
'20697320696e20746865207075626c69'.
'6320646f6d61696e2e204b6576696e20'.
'4875676865732c206b6576696e684065'.
'69742e636f6d2c2053657074656d6265'.
'7220313939350021f90401000001002c'.
'000000001400160000034b18badcfe23'.
'10f26a103353bba2cedcf5699c374e16'.
'768290740605372a451c6e586d2ffb92'.
'eb354650f103ea78c6a491a66c16284e'.
'a720da8cc0a83a824018d55692ded055'.
'fce891cf8b04003b';
return($IMG{$image});
}
Enjoy!
#!/home/bbq/bin/perl
# Trust no1!