Select Code to Download

my $ftp = Net::FTP->new( $row->{ftp_host}, Debug => 1)
 or die "Cannot connect to " . $row->{ftp_host} . ": $@";
...
$ftp->pasv;    
     
my @dir = $ftp->ls; # <-- LINE 50

Net::FTP>>> Net::FTP(2.75)                                            
+         
Net::FTP>>>   Exporter(5.58)                                          
+         
...
Net::FTP=GLOB(0x8521bbc)<<< 227 Entering Passive Mode (64,74,223,25,15
+,182).   
Net::FTP=GLOB(0x8521bbc)>>> PORT 192,168,1,101,130,121                
+         
Net::FTP: Unexpected EOF on command channel at getenomlogs.pl line 50