my ($image_buf,$chunk);
while ( read( $png_image_fh , $chunk , 1024 ) ) {
    $image_buf .= $chunk;
}
print "Content-type: image/png\n\n";
# binmode included in case we run on Windoze
binmode STDOUT;
print $image_buf;