use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;

my $browser = LWP::UserAgent->new();
$browser->timeout(5);

open(HTMLPAGE,"</perl/bin/web.html") or die "$!\n";
while (<HTMLPAGE>) { $buf .= $_; }
close HTMLPAGE;

while ($buf =~ /<a href="(.*?)">/gis)  {
my $link = $1;
print "Checking $link.\n";
my $request = HTTP::Request->new(GET => $link);
my $response = $browser->request($request);
if ($response->is_error()) 
{
open(STDOUT, "> /perl/bin/outr.txt");							 
printf "%s\n", $response->status_line; 
close( STDOUT );
							   
}
$contents = $response->content(); 
                           
 #PLEASE HELP ME ALSO ON THIS PART TO MAKE IT MORE EFFICIENT                         
if ($contents =~ /Not Found|error|sorry|
redirect|autoforward|frameset/ix)
{ print "Bad Link, $&\n$link.\n\n"; }