Select Code to Download

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