Perl script to generate a Junos/Paloalto "set file" from a tree configuration