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;