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

##</code><code>##

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