use MIME::Base64;
my $gif = decode_base64('R0lGODlhAQABAIAAAP///wAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw==');
binmode STDOUT; # for Win32 users
print "Content-type: image/gif\r\n";
print "Content-length: 43\r\n\r\n";
print $gif;