$| = 1;       # unbuffer output

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

open GIF, "<image.gif" or die "Oops $!\n";
binmode GIF;
binmode STDOUT;
my $buffer;
while(read(GIF,$buffer,4096)) {
    print $buffer;
}
close GIF;
__END__