$imgfile = "photo.jpg";
$geometry = ($newwidth x $newheight);
$im->Sample(geometry => $geometry);
$im->Write("JPG:../images/$imgfile");