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; # <-- LINE 50