Stuff

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

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


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

  return @flinks;


}