Select Code to Download

Select or download this

Net::FTP=GLOB(0x8293290)<<< 220 central.node.at FTP server (Version 6.
+5/OpenBSD, linux port 0.3.2) ready.
Net::FTP=GLOB(0x8293290)>>> user kurt
...
Net::FTP=GLOB(0x8293290)<<< 150 Opening BINARY mode data connection fo
+r 'file list'.
Net::FTP=GLOB(0x8293290)<<< 226 Transfer complete.
LS:  [test file]

Select or download this

$ftp = Net::FTP->new($destination, Debug=>2) || die "Couldn't connect:
+ $!\n";
$ftp->login($username,$password) || die "Couldn't log in: $!\n";
$ftp->cwd($path) || die "couldn't cwd! $!\n";
print STDERR "DIR: [",$ftp->dir($filename),"]\n";
print STDERR "LS:  [",$ftp->ls($filename),"]\n";