Select Code to Download

>perl -MO=Deparse -e "$File::Find::prune= not $recurse and ($File::Fin
+d::dir ne $File::Find::topdir);"
$File::Find::dir ne $File::Find::topdir if $File::Find::prune = !$recu
+rse;

>perl -MO=Deparse -e "$File::Find::prune= not $recurse && ($File::Find
+::dir ne $File::Find::topdir);"
$File::Find::prune = !($recurse && $File::Find::dir ne $File::Find::to
+pdir);

    open my $fh, $file
        or die "Couldn't open '$file': $!";

    open (my $fh, $file)
        || die "Couldn't open '$file': $!";

>perl -MO=Deparse -e "open my $fh, $filename || die qq(couldn't open $
+filename: $!)"
open my $fh, $filename || die("couldn't open ${filename}: $!");
...
>perl -MO=Deparse -e "open my $fh, $filename or die qq(couldn't open $
+filename: $!)"
die "couldn't open ${filename}: $!" unless open my $fh, $filename;
-e syntax OK