#!/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');    
$p = $image->Append(stack=>{true,false});
$p = $image->Write('d:/pimage.jpg');