opendir my $dh, $path or die "Could not open '$path': $!";