opendir my $dir, '.'
   or die "Can't read current directory (".cwd()."): $!\n";