#!/usr/bin/perl

   use strict;
   use LWP::Simple;

   my $url="http://www.server.ru/mp3/";
   my $dir="/path/to/your/mp3/dir";

   grep {getfile("$url$1.mp3") 
         if m!<A HREF="(.*?)\.mp3">!i} 
         split /\n/ => get $url;

   sub getfile{
     print "$_[0]\t=\tbegin...\n";
     print @{[head $_[0]]}[1],"\n";
     my $res = LWP::UserAgent->new->request(new HTTP::Request GET=> $_[0]);
     $_[0]=~s!.*/!!;
     if ($res->is_success) {
       open (ABC, ">$dir/$_[0]") or die "Can't create $dir/$_[0]: $!";
       binmode(ABC);
       print ABC $res->content; close ABC or die $!;
     } else {
       print $res->status_line;
     }
     return 1;
   }

   grep {getfile("$url$1.mp3") 
         if m!<A HREF="(.*?)\.mp3">!i} 
         split /\n/ => get $url;