sub resize {
		my $img=shift;
		my $size=shift;
    my $geometry;
		
		if ( orientation($img)=="portrait" ){
			 	 $geometry="x" . $size;
		} else {
				 $geometry=$size;
		}
		print "RESIZE: Geometry is $geometry, received $size, and it should be $sizes{$size}, pic is $img<BR>";
		$img->Resize(geometry=>$geometry);
		return $img;
}

##</code><code>##

		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>";