Perl's NET::FTP meldet Bad Remote Filename

my $nagiosruntimedbforftp = `ls -latr /usr/local/nagios/var/backups/|awk '{if ((\$NF!=".")&&(\$NF!="..")){print \$NF}}'|tail -5 | head -1 | tail -1`;
my $nagiosreportsdbforftp = `ls -latr /usr/local/nagios/var/backups/|awk '{if ((\$NF!=".")&&(\$NF!="..")){print \$NF}}'|tail -5 | head -2 | tail -1`;
my $nagiosfilesforftp = `ls -latr /usr/local/nagios/var/backups/|awk '{if ((\$NF!=".")&&(\$NF!="..")){print \$NF}}'|tail -5 | head -3 | tail -1`;
my $nagiosdbdateforftp = `ls -latr /usr/local/nagios/var/backups/|awk '{if ((\$NF!=".")&&(\$NF!="..")){print \$NF}}'|tail -5 | head -4 | tail -1`;
my $nagiosdbtimerforftp = `ls -latr /usr/local/nagios/var/backups/|awk '{if ((\$NF!=".")&&(\$NF!="..")){print \$NF}}'|tail -5 | head -5 | tail -1`;
my $dir = "/usr/local/nagios/var/backups/";


my @files=ftp_connect($nagiosruntimedbforftp, $nagiosreportsdbforftp, $nagiosfilesforftp, $nagiosdbdateforftp, $nagiosdbtimerforftp);
my ($DYNAMIC, $STATIC)=open_file(@files);
compare_file($DYNAMIC, $STATIC);


sub ftp_connect {
my  ( $ftp, @files );
$ftp = Net::FTP->new("10.117.240.185", Port=>21, Debug => 0) or die "Cannot connect to FTP - Server: $@";
$ftp->login("nagiosftp",'1pwf.Nagios') or die "Cannot login ", $ftp->message;
$ftp->binary;
chdir($dir);
$ftp->put("$nagiosruntimedbforftp","$nagiosruntimedbforftp");
@files=$ftp->dir;
$ftp->quit;
return @files;
}

my @a = <*>;

foreach (@a) {
    print "$_\n";
}