my $rc;
my $im = Image::Magick->new();
$rc = $im->Read("../temp/test.jpg");
warn($rc), next if $rc;

....
....

my $geometry = "$newwidth_t x $newheight_t";

$rc = $im->Scale(geometry => $geometry);
warn($rc), next if $rc;

$rc = $im->Write("JPG:../thumbs/test.jpg");
warn($rc) if $rc;