Help for this page

Select Code to Download


  1. or download this
    use LWP::UserAgent;
    use HTTP::Request;
    ...
    if ($contents =~ /Not Found|error|sorry|
    redirect|autoforward|frameset/ix)
    { print "Bad Link, $&\n$link.\n\n"; }