my @dir = (lmo lin lmf bsu ssu sst ); # and more dir names
foreach my $dir(@dir){
  my $link = "ftp://ftp.<Path_to_dir>.jp/$dir/*";
  system("wget -nH -nd  --timestamping $link");
}