print "Content-type: image/png\n\n";
binmode STDOUT;
$x = $image->Write(.png:-');