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

##</code><code>##

Can't use an undefined value as a symbol reference at /usr/lib/perl5/5.8.8/Net/FTP/dataconn.pm line 53.
##</code><code>##

$VAR1 = undef;