#!/usr/bin/perl -w


use warnings;
 
my $filename = 'test.gif';

print "Content-Type: image/gif\n\n";
binmode STDOUT;

if(open(File, "< $filename"))
{
binmode FILE;
my $buffer;
while(read(FILE, $buffer, 65536)) { print $buffer; undef $buffer; }
close FILE;
}