return unless -f $name; 
open ( FH, $name ) or die "error $!: $name\n";
local $/; 
while(my $line = <FH>)  
{              
$base_url = $name;
$parser = HTML::LinkExtor->new(undef, $name);
$parser->parse(get($line))->eof;
@links = $parser->links;
   if ( @links == 0 ) {
                      warn "no links found in $name\n";
                      return;
                  }
foreach $linkarray (@links)