#!/usr/bin/perl
# <weby>
# ###################################################
use HTML::LinkExtractor;
use LWP::Simple qw(get);
use strict;

my $base = shift;
my $html = get($base.'/');
my $LX = new HTML::LinkExtractor();

$LX->parse(\$html);

print qq{<base href="$base">\n};

#my @links = keys %{[map{$_=>$_}@{$LX->links}]};

for my $Link (@{$LX->links}) {
    ## new modules are linked  by /author/NAME/Dist
    #if( $$Link{href} =~ m{^\/author\/\w+} ) {
    print $$Link{href}."\n" if $$Link{href};
    #}
}

undef $LX;

__END__