my $f = Net::FTP->new($host) or die "Can't open $host\n";
$f->login($user, $password) or die "Can't log $user in\n";

my @files = $f->ls;

foreach (@files) {
my $file = $_;
print "My file is $file \n";
}