#!/usr/bin/perl -w
use CGI;
my $query = new CGI;
$query->header();
$query->start_html();
print "Content-type:image/x-png\n\n";
open (I, '<', "/tmp/upload/EMBOSS_001.png");
binmode I;
print while <I>;
close I;
$query->endform();
$query->end_html();