local *CURDIR;
opendir(CURDIR, '.') or die "could not open directory: $!\n";