print "Content-type: image/png\n\n";
open(RAW, "output.png");
binmode(RAW);
print RAW $im->png();
while ( read( RAW, $buffer, 16_384 ) ) {
    print $buffer;
}
close(RAW);