open(F, "pic.gif") or die $!;
binmode(F);
local $/;
my $pic = <F>;
close(F);

binmode(STDOUT);
print "Content-type: image/gif\n\n";
print $pic;