$file="c:/web/bcimages/$ID.png"; $file1="c:/web/bcimages/$ID.bmp"; my($image, $x); $image = Image::Magick->new; $x = $image->Read($file); warn "$x" if "$x"; $x = $image->Write($file1); warn "$x" if "$x";