use strict;
use Image::Magick;

my $image = Image::Magick->new;
my $name = q(J:/temp/screencaps/newcap.bmp);
my $x = $image->Read($name);
warn "$x" if "$x";
$x = $image->Write(filename=>'J:/temp/screencaps/new.bmp');
warn "$x" if "$x";