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