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