select mimetype, image from table where rowid=nn

##</code><code>##

print header(-type => mimetype,-Content_Length =>length(image)),image;