Select Code to Download

do
{   
    # your stuff here
    print "\t\t$path\n";
} while $path =~ s#(?:(^/)|/)[^/]+$#$1?$1:''#e;

sub pathtrim {
    my ($path) = @_;
    return '/' if ($path =~ m#^/[^/]+$/);
    $path =~ s#/[^/]+$##;
    return $path;
}