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";
    }