#!c:\apps\perl\bin\perl.exe

use strict;
my $hex =
    '47494638396101000100e3000000000' .
    '0bf000000bf00bfbf000000bfbf00bf' . 
    '00bfbfc0c0c0808080ff000000ff00f' . 
    'fff000000ffff00ff00ffffffffff21' . 
    'f9040100000f002c000000000100010' . 
    '0400402f045003b';

my $gif = pack("H*",$hex);
binmode(STDOUT);
print "Content-type: image/gif\n";
print "Content-length: 85\n";
print "\n";
print $gif;

##</code><code>##

#!c:\apps\perl\bin\perl.exe

use strict;
my $hex =
    '47494638396101000100e3000000000' .
    '0bf000000bf00bfbf000000bfbf00bf' . 
    '00bfbfc0c0c0808080ff000000ff00f' . 
    'fff000000ffff00ff00ffffffffff21' . 
    'f9040100000f002c000000000100010' . 
    '0400402f045003b';

my $gif = pack("H85",$hex);
binmode(STDOUT);
print "Content-type: image/gif\n";
print "Content-length: 85\n";
print "\n";
print $gif;