%# "It's not Camelot, but it's not Cleveland, either."
%# 		-- Kevin White, mayor of Boston
<%PERL>
use Image::Magick ();
use File::Temp ();

my ($tmpfh, $tmpfile) = File::Temp::tempfile();
binmode($tmpfh);
print $tmpfh $stream;
close $tmpfh;

$stream = '';

my $img = Image::Magick->new;
$img->Read($tmpfile);
$img->Write("$tmpfile.png");

open $tmpfh, "$tmpfile.png" or die $!;
binmode($tmpfh);
$stream .= $buf while read($tmpfh, $buf, 8192);
close $tmpfh;

unlink $tmpfile;
unlink "$tmpfile.png";
return $stream;
</%PERL>
<%ARGS>
$stream
</%ARGS>
