Select Code to Download

#!/usr/bin/env perl
use strict;
...

find ( \&finder, '/path/to/search' ); 
print "Next start point: $start_from\n";

while ( not -d $start_from and $start_from =~ m,/, ) {
    $start_from =~ s,/[^/]+$,,;
}