Help for this page

Select Code to Download

Select or download this

open IMAGE, "/path/to/image.jpg";
#assume is a jpeg...
...
close IMAGE;
print "Content-type: image/jpeg\n\n";
print $image;

Select or download this

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