use Net::FTP;

my $ftp = Net::FTP->new("atd77.acs.org", Debug => 0);
$ftp->login("foo",'bar');

my @file_list = $ftp->ls();

foreach (@file_list) {
 $ftp->get($_);
}