$geometry = ($newwidth x $newheight);
$im->Sample(geometry => $geometry);
$im->Write("$magick_full");