perl Problem

[K@sperl]

Ich hab auf meiner Linux Box Zaval FileSearch installiert, mit diesem Programm kann ich im Netzwerk diverse FTP Server scannen und dann via Web-Interface nach Dateien suchen
http://www.zaval.org/products/file-search/

Nun hab ich dem Entwickler geschrieben, ob es nicht möglich sei, für jeden FTP Server User, Passwort und Port anzugeben, also in der Form ftp://user:pass@host:port

Er hat mir auch zurückgeschrieben welche Änderungen ich in der Datei, die den Hostscan macht, vornehmen soll, leider jedoch ist der Code nicht korrekt und von perl hab ich überhaupt keine Ahnung ...

Hier mal ein Ausschnitt des Quellcodes welchen mir der Entwickler geschickt hat

        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);
        }

Es geht hier nun darum, auf den FTP zuzugreifen (mit User und Pass). Eingetragen werden die zu scannenden FTPs in eine Datei. Ich hab nun mal probiert, eine FTP einzutragen (in die Datei), in der Form ftp://IP, also müßte das Programm in den else Zweig springen, das macht es aber anscheinend nicht, da nichts ausgegeben wird (im Normalfall werden alle Dateien und Verzeichnis in ein File geschrieben, welches dann durchsucht werden kann).


Hier der Link zum gesamten File
http://www.geraldholl.cc/scan-host.pl.txt