#!/usr/bin/perl -w use DBI; use CGI; print "Content-type: text/html\n\n"; $filename = "./test.png"; $html = qq{}; $html .= qq{

}; print $html;