use LWP::UserAgent;
use Image::Magick;  
$ua = new LWP::UserAgent;
$ua->agent("$0/0.1 " . $ua->agent);
$ua->agent("Mozilla/8.0");


my $PICURL ="http://www.example.com/img.axd?pid=cjfsaf79afffafhfah77";
my $PICDEST="/var/vhosts/mysite.com/httpdocs/images";
my $PICNAME="01.jpg";

my $response = $ua->get("$PICURL");

open(outfile, ">:raw", "$PICDEST/$PICNAME");
binmode outfile;

if ($response->is_success) {
  print outfile $response->content;
  $Pi++;
  $PTOT++;
  }
else {
  die $response->status_line;
}

$image  = new Image::Magick;
$image->Read("$PICDEST/$PICNAME");
$image->Scale(width=>800, height=>600);
$image->Write("$PICDEST/$PICNAME");
$image->Scale(width=>216, height=>163);
$image->Set(quality=>90);
$image->Write("$PICDEST/TH_$PICNAME");