use Image::Magick;    
   my($image, $x);    
   $image = Image::Magick->new;    
   $x = $image->Read('Images.jpg');       
   warn "$x" if "$x";    
   $x = $image->Crop(geometry=>'200x50');    
   warn "$x" if "$x";    
   $x = $image->Write('x.png'); 
   warn "$x" if "$x";