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

$x = $image->Write('test.bmp');
    warn "$x" if "$x";