Hi All,

When the customer's Internet comes backup up (we are dead nuts on the Pineapple Express and are having 85+ MPH winds and he turned everything off, plus Charter is down city wide), I am going to try:

sub DeleteDirectly ( $ ) {
   my $Target = $_[0];
   print "Attempting to delete $Target\n";
   if ( $ftp->quot ( "delete",  "$Target" ) )
      { print "File $Target was quot deleted\n\n"; }
   else
      { print "File $Target failed to quot delete\n\n"; };
}
[download]