$FTPdHandle = Net::FTP->new($FTPdServer, Debug=>1);
$FTPdHandle->login("my account","mypassword");
$FTPdHandle->cwd("/mydirectory");
@FTPdDir = $FTPdHandle->list();

print STDOUT @FTPdDir;

$FTPdHandle->quit;