foreach(@files) 
{

my $filename = $_; 
my $fullpath = "$ftpFolder/$filename";

# download the file
if ($ftp->get($fullpath)) {
 
   # be sure to only delete the file if it successfully downloaded
 
  # then delete the file.
  if ($ftp->unlink($fullpath)) {

     print "DELETED FILE: [$filename]\n";

  } else {
    
     print "[Error] UNABLE TO DELETE THE FILE: [$filename][" . $ftp->message . "]\n";
 
  }

} else {

  # error - not able to download
  print "[Error] UNABLE TO DOWNLOAD FILE: [$filename][" .  $ftp->message . "]\n";

}