Select Code to Download

#!/usr/bin/perl

...
    print "$permissions\n";
    print "$host\n";
}

$sections->findnodes('./PERMISSION');

$xc->findnodes('./PERMISSION', $sections);