#!/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->Crop(geometry=>'100x100"+100"+100');
warn "$x" if "$x";  
$x = $image->Write('C:/Graph.xls.01.08.2004.PNG');    
warn "$x" if "$x";

##</code><code>##

The procedure entry point LevelImageChannel could not be located in the dynamic link library CORE_RL_magick.dll

##</code><code>##

Can't load 'C:/Perl/site/lib/auto/Image/Magick/Magick.dll' for module Image::Magick: load_file:The specified procedure could not be found at C:/Perl/lib/DynaLoader.pm line 229. at D:\image.pl line 2 Compilation failed in require at D:\image.pl line 2. BEGIN failed--compilation aborted at D:\image.pl line 2.