while(my $line = <FH>)

##</code><code>##

@links = $parser->links;
if ( @links == 0 ) {
    warn "no links found in $name\n";
    return;
}