Help for this page

Select Code to Download


  1. or download this
    sub find {
        my( $callback, $subdir, $path )= @_;
    ...
        }
        chdir("..")  or  die "Can't chdir out of $path: $!\n";
    }
    
  2. or download this
    sub find {
        my( $subdir, $path )= @_;
    ...
        }
        chdir("..")  or  die "Can't chdir out of $path: $!\n";
    }