Select Code to Download

...
my $ftp = Net::FTP->new($hostname, Debug => 1, Passive => 1);
...
$ftp->cwd($directory);
my $ref= $ftp->ls();
die Dumper($ref);

Can't use an undefined value as a symbol reference at /usr/lib/perl5/5
+.8.8/Net/FTP/dataconn.pm line 53.

$VAR1 = undef;