use Net::FTP; my $ftp = Net::FTP->new( "192.168.10.240", Debug => 1) or die "Cannot connect to " . "192.168.10.240" . ": $@"; $ftp->login("metrica", "metrica") or die "Cannot login ", $ftp->message; $ftp->cwd("/apps/inst1/metrica") or die "Cannot change working directory ", $ftp->message; $ftp->pasv; my @dir = $ftp->ls; # <-- LINE 50 print "Files :" , join('-',@dir), "\n";