#!/usr/local/bin/perl   
use Image::Magick;
my($image, $p, $q);  
$image = new Image::Magick;  
$image->Read('d:\\d\\Graph.xls..PNG','d:\\d\\Sample.jpg');    
$image->Write('d:\\pimage.jpg');