my $path = "Report_".$date.".csv";
net::ftp $ftp->get($path) or die "Cannot get '$path': $!\n";