# PNG
print $request->header(-type=>'image/png');
print $image->png;

##</code><code>##

# PNG
print $request->header(-type=>'image/png');
binmode STDOUT;
print $image->png;