sub read_cwdir
{
  if(opendir(my $dir, "."))
  {
    my @list=readdir $dir;
    close $dir;
    return wantarray?@list:shift(@list);
  }
  else
  { return wantarray?():undef; }
}