Select Code to Download

$ convert ./my.jpg my.png

use Image::Magick;

...
die $check if $check;
undef @$image;
print "ok\n";

    warn $msg;

# at the top
use Carp qw/cluck/;

# in sub error again:
cluck $msg;