use Image::Magick;

$image = Image::Magick->new; 
open(IMAGE, 'd:\d\Sample.jpg'); 
print "test1\n";
$image->Read(file=>\*IMAGE); 
print "test2\n";
close(IMAGE);

$filename = "test.png"; 
open(IMAGE, ">>$filename");  
$image->Write(file=>\*IMAGE, filename=>$filename); 
close(IMAGE);