Select Code to Download

  find2perl / -name .nfs\* -mtime +7 \
        -exec rm -f {} \; -o -fstype nfs -prune

    sub wanted {
        /^\.nfs.*\z/s &&
...
        $dev < 0 &&
        ($File::Find::prune = 1);
    }