my $lines = $ftp->dir("/");
die "Can't get directory listing: $!\n" if (!defined($lines));
print join("\n", @$lines), "\n";