Select Code to Download

my $thumb= new Image::Magick;
open(IMAGE, "</path/$photof");
...
close(IMAGE);
$thumb->Resize(geometry=>'120X90');
$thumb->Write("/path/thumb_$photof");

my ($height,$width) = $thumb->Get('width','height);