Select Code to Download

my $path='/foo/bar';
my @dirs=split(/\//,$path);
...
    print $str;
    pop @dirs;
}

/foo/bar
/foo
/