Help for this page

Select Code to Download

Select or download this

use XML::Simple qw(XMLout);
$samstr =  source=>[{abc=>[{uname=>[$VAR1],dbcrdn=>[$VAR2],paridn=>[$V
+AR3],osath=>[$VAR4],}]
$xmlstr = "{".$samstr."}";
print XMLout($xmlstr,RootName => "root");

Select or download this

$xmlstr = {
              source=>[{abc=>[{uname=>["USER"],dbcrdn=>["PWD"],paridn=
+>["XYZ"],osath=>["0"],}]
           }

print XMLout($xmlstr,RootName => "root");