get ncbi ftp listing

biostars192376.pl

use strict;
use warnings;
use Net::FTP;

my $host = "ftp.ncbi.nlm.nih.gov";
my $wdir = "/genomes/refseq/";

my $ftp = Net::FTP->new($host, Passive => 1, Debug => 0)
    or die "Cannot connect to $host: $@";

$ftp->login or die "Cannot login ", $ftp->message;

$ftp->cwd($wdir)
    or die "Cannot change working directory ", $ftp->message;

my @list = $ftp->ls();
print scalar(@list);

$ftp->quit();