#!/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;