#!/usr/bin/perl
use strict;
use warnings;

my($image);

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

open(IMAGE, '<image.gif') or die $!;
binmode(IMAGE);
{
        local $/;
        undef($/);
        $image = <IMAGE>;
}
close(IMAGE);

binmode(STDOUT);

print $image;