What about binmode STDOUT? Further observations:

• if you serve an image, you don't serve html.
• you invoke the header method and throw away the result
• you invoke the start_html method and throw away the result
• if you assemble the header yourself (which you should not do) end it with "\r\n\r\n"
• you invoke the endform method and throw away the result
• you invoke the end_html method and throw away the result

Try this:

#!/usr/bin/perl -w
use CGI;
my $query = new CGI;
binmode STDOUT;
print $query->header(-content_type => 'image/x-png');
open (I, '<', "/tmp/upload/EMBOSS_001.png");
binmode I;
print while <I>;
close I;
[download]

Does that work?

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}