Or simpler (because I hate typing):

use File::Copy;
print "Content-type: image/jpeg\n\n";
copy "/path/to/image.jpeg", \*STDOUT;
[download]

And then you don't even have to type binmode STDOUT as another monk in this thread suggested, because copy does it for you.

-- Randal L. Schwartz, Perl hacker