Select Code to Download

sub resize {
        my $img=shift;
...
        $img->Resize(geometry=>$geometry);
        return $img;
}

        my $tmppic=resize($pic,$sizes{$size});
and:
            $ret=$tmppic->Write("jpeg:$dest");
        my $tmpheight=$pic->Get('columns');
        print "Orig: $tmpheight . Write to $tmppic $dest returned $ret
+<BR>";