opendir(my $dh, $some_dir) || die;