FTP Abfrage ?

[Marko Sollen]

Hallo leute,

ich krieg es einfach nicht hin abzufragen ob der login an dem FTP Server nun erfolgreich war oder nicht :(

So hab ichs versucht:

ftp = Net::FTP->new("$Host");
$ftp->login("anonymous","[e-mail]");
print $ftp;
if ($ftp=~ /7070c/)
{
  print LOG "Can‚t loggin as anonymous...\n";
  print "Can‚t loggin as anonymous...\n";
  last;
}

print "Login as anoynmous succesfull!\n";
$ftp->quit;

Nur ist der Wert von $ftp leider nicht immer 7070c wenn es fehlschlägt. Wie kann ich dabei jetzt abfragen ob der login erfolgreich war oder ob er abgelehnt wurde?

vielen dank.
marko