...
my $ftp = Net::FTP->new($hostname, Debug => 1, Passive => 1);
$ftp->login($user,$password);
$ftp->cwd($directory);
my $ref= $ftp->ls();
die Dumper($ref);