opendir(DIR, ".") or die "Can't open the current directory: $!\n";