$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";