Hauptprogramm:

my $ftp = Net::FTP->new($ftpServ);
&ftpget($ftp, "$ftpPath/$ftpFile","$localPath/$ftpFile") or warn "kann Datei beim get nicht schreiben: $locDatePath/$ftpFile\n";
push(@filelist, "$localPath/$ftpFile");
$ftp->quit();