Before anyone fails to run this on a windows box, for cross platform usefulness you'll need to modify the following:

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

To be:

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

I like the useles but pretty output though. I remember spending far too much time making QBasic turn an old 386 into a broken TV by using a simillar trick once.