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

##</code><code>##

# suppose you have read() an immage into $image_data
# and image type is jpeg...
print "Content-Type: image/jpeg\n\n";
binmode STDOUT;
#just if you are unde windows 
#not needed on more serious platforms :-)
print $image_data;