$ftp->get($_) for grep /\.txt$/, $ftp->ls;