Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
      print "$url:\ndenied\n";
   }
}
  2. or download this
    package WWW::Mechanize::Polite;
use base 'WWW::Mechanize';
...
}

1;
  3. or download this
    use WWW::Mechanize::Polite;

...
   $mech->polite_get($url);
   print "$url:\n", $mech->content ? $mech->content : "denied\n";
}