problem bei ftp-abfrage

[lois]

hi,

eigentlich sollte es ja möglich sein den verzeichnisbaum eines ftp-servers rekursiv abzufragen.

vom prinzip her sollte eigentlich der folgende code funktionieren:

use net::FTP;

$ftp = net::FTP->new(host...);
$ftp->login(...);

&search; # search root

exit(0);

sub search {
  $rek = shift;
  @dir = $ftp->ls();
  for (@dir) {
    print "$_\n";
    search($_) if ($#dir); # rekursion mit simpelster abbruchbedingung
  }
}

...funktioniert aber nicht

logischer wäre ja search($rek/$_), was aber so interpretiert wird:
$rek = "bspdir"; $_ = "cgi-bin";
search ("$rek/$_");
dann ist in search plötzlich $rek -> "bspdir//bspdir/cgi-bin" was ich überhaupt nicht versteh

ach, übrigens der code angewendet auf lokales dateisystem funktioniert wunderbar

????

lg, lois