Выполняет удаление всех файлов в удаленной дир-рии  на ftp mysql, у которых в названии дата не совпадает с сегодняшней. Есессено, скрипт нуждается в доработке, но тем не менее, к использованию вполне пригоден. Пользуюсь совместно со скриптом резервного копирования, о котором я уже писал.

#!/usr/bin/perl
use Net::FTP;
use POSIX;

$host="ftp.xxx.ua";
$user="yyyy";
$passwd="zzzz";

$datestr = strftime("%Y-%m-%d", localtime);

$ftp= Net::FTP -> new($host, Debug=>0);
$ftp->login($user,$passwd);
$ftp->cwd("./mysql");

print $ftp->pwd(),"\n";

@a=$ftp->ls();
foreach(@a){
 $fname=$_;
 if(not $fname=~/$datestr/){
  print "not match $match $fname... deleted\n";
  $ftp->delete($fname);
 }
}

$ftp->quit();