Select Code to Download

sub createPath {
    my $path = shift;
...
    $xp->createNode($path) or die "Could not create node: $!";

}