Select Code to Download

my $parser = XML::LibXML->new();
$doc = $parser->parse_file("input.xml");
my $appName = $doc->findvalue(q|@name|);

 use XML::LibXML;
 my $parser = XML::LibXML->new();
...

  print $doc->toString;

<appliance long_name ="my app name" revision="10.58.226.13">
<desciption_section>
...
<welcome_screen enabled="1">welcome to my app </welcome_screen>
</desciption_section>
.....

<?xml version="1.0" encoding="utf-8"?>
<ovf:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xm
+lns:vadk="http://www.vmware.com/schema/vadk" xmlns:ovf="http://schema
+s.dmtf.org/ovf/envelope/1" xmlns:vssd="http://schemas.dmtf.org/wbem/w
+scim/1/cim-schema/2/CIM_VirtualSystemSettingData" xmlns:rasd="http://
+schemas.dmtf.org/wbem/wscim/1/cim-schema/2/CIM_ResourceAllocationSett
+ingData" xmlns:vmw="http://www.vmware.com/schema/ovf" xmlns:vsm="http
+://www.vmware.com/schema/vServiceManager" xsi:schemaLocation="http://
+schemas.dmtf.org/ovf/envelope/1 /opt/vmware/etc/build/schemas/vadk.xs
+d" ovf:version="0.7.0" vadk:version="2.6.0.0">
...

....