use Data::Dumper;
use Net::FTP;

$ftp = Net::FTP->new("blah", Debug => 0) or die "Cannot connect: $@";    
$ftp->login("foo",'bar') or die "Cannot login ", $ftp->message;   
my @list = $ftp->dir();
print Dumper(\@list);
$ftp->quit;

##</code><code>##

          'drwxr-xr-x   7 leinbd   aagdev       512 Oct 17 18:06 leinbd',
          'drwxr-xr-x  11 lois     aagdev      1024 Nov 14 14:04 lois',
          'drwx------   2 root     system       512 Nov 10 15:41 lost+found',
          'drwxr-xr-x   2 maynec   aagdev       512 Nov 20 10:05 maynec',
          'drwxr-xr-x  10 nanayn   aagdev       512 Oct 07 09:52 nanayn',
          'drwxr-xr-x   5 root     system       512 Nov 10 15:41 netinst',