chdir $dir or die "Can't chdir to $dir: $!\n";
opendir(DIR, '.') or die "Can't open '.': $!\n";