Untitled

my @flinks;
my $p = HTML::LinkExtor->new(\&cb);
my $alinks_domain = $_[1];
#my ($tag, $type, %links);
    sub cb {
    my  ($tag, %links) = @_;

              return if $tag ne 'a';
                if ("@{[%links]}" !~ /^http:\/\//) {
                push @flinks, "http://$alinks_domain@{[%links]}\n";
                }
                else {
                push @flinks, @{[%links]};
                         }


          }
    $p->parse_file(shift || die "Cant complete a_links subroutina : $!");

return @flinks;


}