#!/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";