opendir(my $curdir, '.')