#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print "Content-type: text/html\n\n";  
 
  use Image::Magick;
  my($image, $x);
  $image = Image::Magick->new;
  $x = $image->Read('http://mysite.com/brochure_image.asp?id=242910&prop=mine&nocache=8959');
  warn "$x" if "$x";
  $x = $image->Crop(geometry=>'100x100+100+100');
  warn "$x" if "$x";
  $x = $image->Write('x.png');
  warn "$x" if "$x";