use Cwd;
  opendir(DIR, cwd);
  my @dirlist = readdir(DIR);
  closedir(DIR);