#!/usr/local/bin/perl   
use Image::Magick;   
my($image, $x);    
$image = Image::Magick->new;    
$x = $image->Read('D:/d/FirewallRespTimebyDay.xls.0.PNG'); 
warn "$x" if "$x";    
$x = $image->Write('C:/Graph.xls.01.08.2004.PNG');    
warn "$x" if "$x";

##</code><code>##

$x = $image->Append('C:/Graph.xls.01.08.2004.PNG');  

##</code><code>##

Image::Magick=ARRAY(0x1a453b0) at D:\image.pl line 8.