use strict;


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

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