Since you want to remove the directory anyway (and I am going to assume you know the directories will always be empty) maybe you could use the following:
use strict;
use Net::FTP;
use constant SERVER => 'server.somewhere.com';
use constant USERID => 'anonymous';
use constant PASSWORD => 'my.mail@somewhere.com';
use constant RMTDIR => '/tmp';
my $mFTP;
#-- Open the connection
$mFTP = Net::FTP->new(SERVER, Debug => 0);
$mFTP->login(USERID,PASSWORD);
#-- Process the contents
$mFTP->cwd(RMTDIR);
foreach ($mFTP->ls)
{
$mFTP->rmdir($_);
if ($mFTP->ls($_))
{
print $_," is a file...\n";
}
else
{
print $_," *was* a directory...\n";
#-- Add file create code here...
}
}
#-- Close the connection
$mFTP->quit;