perl-скрипт для автоматизации бэкапов mysql

#!/usr/bin/perl
 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=gmtime(time);
 
$date = sprintf("%d.%02d.%02d_%02d-%02d-%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec);
print "Date is $date\n";
 
@databases  = ("bd1", "bd2");# имена баз данных которые надо забэкапить
$mysql_user = 'username';
$mysql_pass = 'pass';
$path       = '/home/www/mysite.ru';
$archive_name = "$date.tar.gz";
$http_link = 'http://mysite.ru';
 
#создаем катаклог, в качестве имени - текущяя дата
system "mkdir '$date'";
 
#делаем дампы каждой БД
foreach $database (@databases){
  print "Backuping database: $database... ";
  system "mysqldump -u $mysql_user -p$mysql_pass $database > $date/$database.sql";
  print "Done.\n";
}
 
#архивиреем дампы и перемещаем в папку, которую до этого создали
system "tar -czf $archive_name $date";
system "mv $archive_name $date";
#копируем архив в корень нашего домена и предлагаем его скачать
system "cp $date/$archive_name $path/$archive_name";
print "You can download archive: $http_link/$archive_name\n";
# после нажатия enter, архив из корня домена будет удален и удалены промежуточные файлы с дампами баз данных.
<>;
system "rm $path/$archive_name";
system "rm $date/*.sql";
print  "Cleared. Tasks done.\n";