#!/usr/bin/perl
# script.pl
use strict;
use warnings;

my $gif = pack("H*",
               '47494638396101000100B30000888888' .
               'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' .
               'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' .
               'FFFFFFFFFFFFFFFFFFFFFFFFFF2C0000' .
               '0000010001000004021044003B'
              );
print "Content-Type: image/gif\n\n";
binmode STDOUT;
print $gif;
[download]

<a href="script.pl">A Gif</a>
[download]