my $ftp = Net::FTP->new( $row->{ftp_host}, Debug => 1)
  or die "Cannot connect to " . $row->{ftp_host} . ": $@";
      
$ftp->login($row->{username}, $row->{password})
  or die "Cannot login ", $ftp->message;
                        
$ftp->cwd("/logs/web")
  or die "Cannot change working directory ", $ftp->message;
      
$ftp->pasv;    
      
my @dir = $ftp->ls; # <-- ZEILE 50