opendir(my $curdir, '.') or die "could not open directory: $!\n";