Help for this page
$x->Resize(geometry=>'160x120'); #or $x->Scale(geometry=>'160x120');
#!/usr/bin/perl use warnings; ... $x = $image->Write('zt.jpg'); warn "$x" if "$x";