Select Code to Download

sub _addNode {
    my ($parent, $child) = @_;
...
    }
    return $parent;
}

#!/usr/bin/perl -w
use strict;
...
my $owner = &createOwner();
$root = &_addNode($root, $owner);
print $DOC."\n";