#!/usr/bin/perl

print "Content-type: image/gif\n\n";
print Image();

sub Image {
  my $image;
  $image  = '4749463839610f001000a2ff00848684'
          . 'dfe0dfc6c7c6c0c0c000000000000000'
          . '000000000021f90401000003002c0000'
          . '00000f00100040034048baacf3608049'
          . 'a98824ca0aae78d9b375a4164a92470e'
          . '016a8dde10721c48dfc029ee528b0ac0'
          . 'e0671712';

  return(pack("H*",$image));
}