Select Code to Download

print q{<img src="/cgi-bin/imgserv.pl">};
...

# suppose you have read() an immage into $image_data
# and image type is jpeg...
...
#not needed on more serious platforms :-)
print $image_data;