sub ftp_start { my ($ftp, $meetNo); my ($root, $filename); my (@directories); ### THESE 3 WORK FINE: $ftp = Net::FTP->new("atd77.acs.org", Debug => 0) or die "Cannot connect to some.host.name: $@"; $ftp->login("USERNAME",'PASSWORD') or die "Cannot login ", $ftp->message; $ftp->cwd("$REMOTE_DIR") or die "Cannot change working directory ", $ftp->message; # I WANT TO DO THIS: GET ALL FILES IN $REMOTE_DIR and FTP them to the local directory. $ftp->get("*.*") or die "get failed ", $ftp->message; $ftp->quit; }