$ convert ./my.jpg my.png

##</code><code>##

use Image::Magick;

my $infile = '/some/image/or/other.jpg';
my $outfile = '/some/image/or/other_thumb.jpg';

my $image = Image::Magick->new;
my $check = $image->Read( filename => "$infile" );
die $check if $check;
$check = $image->Resize( geometry => "50x50" );
die $check if $check;
$check = $image->Write( filename => "$outfile" );
die $check if $check;
undef @$image;
print "ok\n";

##</code><code>##

	warn $msg;

##</code><code>##

# at the top
use Carp qw/cluck/;

# in sub error again:
cluck $msg;