#!/usr/bin/perl --
use Data::Dumper;
use strict;
use warnings;
opendir my $dh, "doesnotexist.mustnotexist";
print Dumper( $dh);
__END__
$VAR1 = \*{'::$dh'};

D:\dev\misc>
D:\dev\misc>perl
#!/usr/bin/perl --
use Data::Dumper;
use strict;
use warnings;

for my $dir( "doesnotexist.mustnotexist", "."){
    opendir my $dh, $dir;
Parentheses missing around "my" list at - line 7.
    print "dir $dir ", Dumper( $dh);
}
__END__
dir doesnotexist.mustnotexist $VAR1 = \*{'::$dh'};
dir . $VAR1 = \*{'::$dh'};