$ftp->login($u, $p) or die "Failed to login: $!\n";

##</code><code>##

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

##</code><code>##

my $ftp = Net::FTP->new($host, Debug => 5);

##</code><code>##

print "Current directory is ", $ftp->pwd(), "\n";