[_m3]

Hat mich wer gerufen? ;)

Du musst den Code schon in das Script einbauen, sonst klappt es nicht! ;)

Ab Zeile 207 in deinem Code:

        # The result file has the following structure:
        # {File=>F, Dir=>D}:{date:optional}:size:full path

        $ftp = Net::FTP->new($host);
        if (defined $ftp) {
            $ftp->login($ENV{"FTP_USER"},$ENV{"FTP_PASSWORD"});

ersetzen durch

        # The result file has the following structure:
        # {File=>F, Dir=>D}:{date:optional}:size:full path

        my $port = '21', $login, $pwd;
        if( $host =~ /\@/ ){
            $login = $host;
            if( $host =~ /\@(.)+\:/ ){
                ($host, $port) = split(':', $host);
            }
            $login =~ s/\@(.)+$//;
            ($login,$pwd) = split(':', $login);
            $ftp = Net::FTP->new($host, Port=>$port);
            $ftp->login($login, $pwd) if (defined $ftp);
        }
        else{
            $ftp = Net::FTP->new($host);
            $ftp->login($ENV{"FTP_USER"},$ENV{"FTP_PASSWORD"}) if (defined $ftp);
        }

Die Umgebungsvariablen FTP_USER und FTP_PASSWORD sind gesetzt?