I got the same problem and I tried this:

open IMAGE, "/path/to/image.jpg";
#assume is a jpeg...
my ($image, $buff);
while(read IMAGE, $buff, 1024) {
    $image .= $buff;
}
close IMAGE;
print "Content-type: image/jpeg\n\n";
print $image;
[download]

It worked perfectly on a 2K gif image, but however with larger images of 5K or so, only about half of the image shows up. I tried to change the buffer value but all in vain. Any help is greatly appreciated.

Originally posted as a Categorized Answer.