my $ftp = Net::FTP->new($s_host, Timeout => 30, Port => 21, Passive => 0);
if($ftp->login($s_user, $s_pass)==0) {
    print "Username und/oder Passwort falsch! Bitte Eingaben ueberpruefen!\n";
    } else {
        foreach($ftp->ls()) {
            ...Hier fehlt dann der Test...
        }
    }
$ftp->quit();