my $gif = pack "H*",'47494638396101000100800000ffffff00000021f90401000000002c00000000010001000002024401003b';
binmode STDOUT; # for Win32 users
print "Content-type: image/gif\r\n";
print "Content-length: 43\r\n\r\n";
print $gif;