opendir my $d, $dir;