use Image::Magick;
my ($image, $x);
$image = Image::Magick->new;
$image->Read($ext); warn "$x" if "$x";
##</code><code>##

use Image::Magick;
my ($image, $x);
$image = Image::Magick->new;
$x = $image->Read($ext);
warn "$x" if "$x";