my @files;
  {
      opendir my $dh, $dir or die;
      @files = grep {!/^\./} readdir $dh;
      closedir $dh;
  }