perl скрипт для скачки всех песен исполнителя с tutmp3.net Опции

[Parus]

Собственно сабж. Вчера написал.
зы Желательно запускать его по крону(раз в час)(ибо на сервере есть ограничение по кол-ву скачек с ip в промежуток времени) и удалиять его оттуда, когда он возвращает 0.
Собственно сам скриптъ:

Код

#!/usr/bin/perl
####################################
# Created by parus                 #
# E-mail: [email protected]         #
####################################
use strict;
use LWP::Simple;
our $downloaded=0;

sub down
{
my ($url)=@_;
my $url2=$url;# Осторожно, кривые руки!
if ($url2=~ s/http:\/\/dl\.tutmp3\.net\/[A-Za-z0-9]{32}\/\d+\/\d+\/(.+\.mp3)//i )
{
  if ( -e $1)
  { print "$1 exists!\n"; } else
  {
   $downloaded++;
   system("wget -c $url");
  }
}
}

my $url="http://www.tutmp3.net/artist-69-6918/NTL.html";
my $data=get($url);
my $i = 0;
for ( $data=~ m/<span style=\"color:#1f1f1f;\"><a href=\"\/mp3\-\d+\-(\d+\/.+)\.html\">/gi )
{
if ( s/(\d+)\/(.+)//i )     #Не тру!
{
  my $id=$1;
  my $trek=$2;
  my $ext="mp3";
  my $ok2="Скачать";
  my $hash=get("http://www.tutmp3.net/download.php?id=$id&trek=$trek");
  if ($hash=~s/<input type=\"hidden\" name=\"hash\" value="([A-Za-z0-9]{32})">//i)#A-Z на всяк случай, ибо не мешает
  {
   $hash=$1;
   my $page=get("http://www.tutmp3.net/download.php?id=$id&trek=$trek&ext=$ext&hash=$hash&ok2=$ok2");
   if ($page =~ s/(http:\/\/dl\.tutmp3\.net\/[A-Za-z0-9]{32}\/\d+\/\d+\/.+\.mp3)//i)
   {
    down($1);
   }
  
  }else {print "ERROR!\n";}
    
  $i++;
}else {print "ERROR!\n";}
}
print $downloaded;