##
use strict;
use warnings;
use XML::Twig;
use Data::Dumper;
my $xfile = <
TEST
This is a test
Create
Assign
EOF
my $t= new XML::Twig();
$t->parse($xfile);
my $install = $t->root();
print "NAME: " . $install->first_child('name') . "\n";
}