Select Code to Download

install http://theoryx5.uwinnipeg.ca/ppms/WWW-Mechanize.ppd

$mech->get($url);
warn "Success: " . $mech->success ? 'OK' : 'BAD';
warn "Code: " . $mech->status;
warn "Actual content: " . $mech->content;