>perl -Mstrict -Mautodie -wE "my $s='.'; opendir my $h, $s     # ok"

>perl -Mstrict -Mautodie -wE "my $s='.'; opendir(my $h, $s);   # ok"

>perl -Mstrict -Mautodie -wE "my $s='.'; opendir my ($h), $s;  # ok"

>perl -Mstrict -Mautodie -wE "my $s='.'; opendir my $h, $s;  # not ok"
Parentheses missing around "my" list at -e line 1.

>perl -Mstrict -Mautodie -wE "my $s='.'; opendir my $h, $s or bang(); # ok"

>perl -Mstrict -Mautodie -wE "my $s='.'; (opendir my $h, $s); # ok"