Select Code to Download

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

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

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