Select Code to Download

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);
}