use strict;
use warnings;

my $filename = 'foo.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;
}