ちょっと道がずれるけど、JPG を OPEN して

open(JPG, "JPEG file PATH");
read(JPG, $jpgbuff, (-s JPG));
close(JPG);
print "Content-Type: image/jpeg\n\n";
binmode(STDOUT);
print $jpgbuff;

とかやったらちゃんと JPEG 表示される?