Select Code to Download

#!/usr/bin/perl.exe -w
use strict;
use XML::Simple;
...
print $ref->{emp}->{name},$/;
print $ref->{emp}->{age},$/;
print $ref->{emp}->{address},$/

<profile>
<emp>
<name>Mahesh</name>
...
<desig>Developer</desig>
</emp>
</profile>

$ ./script.pl
$VAR1 = {
          'emp' => {
...
24
New york