I couldn't make wget to complete this work. The status of the servers with public access here (upload|download) is as before - everybody can (up|down) everything. So the .mp3 download is time-consuming process if done 'by hand' and thus it's already automated: 
use strict;
use LWP::Simple;
use WWW::Mechanize;

my $url    = shift || die "no URL given!\n";
my $ext    = '.mp3';
my ($name) = $url =~ /.+\/(.+?)\W+$/;
my $mech   = WWW::Mechanize->new();
my %links  = ();

$mech->get($url);
$name =~ s/(?:\W+\d*)+/-/g;
$name =~ s/\W*$//g;

my @links = $mech->links();

for (@links) {
    $_->url() =~ /.+$ext$/
        or next;
    print $_->url(), $/;
    $links{$_->url()} = 1;
}

for (sort keys %links) {
        $.++;
        my $filename = "$name.$.$ext";
        {
            my $newname;
            while (-e $filename) {
                $filename = "$name.$.-". ++$newname .$ext;
            }
        }
        getstore($_, $filename);
        print '[',scalar localtime,']'," $filename downloaded.\n";
}

__END__

>downloader some_URL
[Fri Sep 16 19:29:47 2005] ABBA-The-Definitive-Collection-Disc.1-1.mp3
+ downloaded.
[Fri Sep 16 19:30:56 2005] ABBA-The-Definitive-Collection-Disc.2-1.mp3
+ downloaded.
[Fri Sep 16 19:31:47 2005] ABBA-The-Definitive-Collection-Disc.3-1.mp3
+ downloaded.
[Fri Sep 16 19:32:26 2005] ABBA-The-Definitive-Collection-Disc.4-1.mp3
+ downloaded.
[Fri Sep 16 19:33:28 2005] ABBA-The-Definitive-Collection-Disc.5-1.mp3
+ downloaded.
[Fri Sep 16 19:33:59 2005] ABBA-The-Definitive-Collection-Disc.6-1.mp3
+ downloaded.
[Fri Sep 16 19:34:31 2005] ABBA-The-Definitive-Collection-Disc.7-1.mp3
+ downloaded.
...

[download]


In reply to downloader by sh1tn

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.