use strict;


open(IMAGE, "image.gif");
        binmode(IMAGE);
        my $Data = <IMAGE>;
close(IMAGE);

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