Help for this page
binmode STDOUT; $x = $image->Write(.png:-');
print "Content-type: image/png\n\n";
$| = 1;
#!/usr/local/bin/perl ... $img->Resize(width=>$ox/$r,height=>$oy/$r); return $img, sprintf("%.0f",$ox/$r), sprintf("%.0f",$oy/$r); }