opendir (my $dh, "/some/path")
    or die("opendir: $!\n");