Help for this page

Select Code to Download

Select or download this

sub id2path_new {
    my $id = shift;
...

    return join q{/}, @parts; 
}