Select Code to Download

#!/usr/bin/perl
use strict;
...
    print join ('.', map {"nested-$_"} @nodes), "\n" if @nodes;
    processDtree ($rh_dtree->{$_}, @nodes, $_) for sort keys %$rh_dtre
+e;
}

nested-L1
nested-L1.nested-L2a
...
nested-L2b.nested-L2b2
nested-L3b
nested-L3b.nested-L4a