Select Code to Download

<img src="cgi-bin/image_serve.cgi?full+124236+pc_img1">

#!/usr/bin/perl

...
$image->Resize(width=>$x,height=>$y);
print "Content-type: image/jpeg\n\n";
$image->Write('jpg:-');