while(1) {
  my $ftp = Net::FTP->new(...);
  defined $ftp->mdtm($dir) or last;
  $ftp->rmdir($dir);
  sleep 10;
}