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