Select Code to Download

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

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