Thanks for continuing to look at this. The exact code is...
#!/usr/bin/perl
use Net::FTP;
my $now = localtime;
my $report_path = "/u01/home/ftp.log";
my $path = "/***/***/***/";
my $ftpdest = "***";
my $ftpuser = "***";
my $ftppass = "***";
open (REPORT, ">$report_path");
print REPORT "It...