$useflock = 1;
 open(IMG, "<image.gif") || die($!);
 binmode(IMG);
 if ($useflock){ flock(IMG,2); }
 $/ = undef;
 my $image = readline(*IMG);
 if ($useflock){ flock(IMG,8); }
 close(IMG);
 print "Content-type: image/gif\n\n";
 print $image;