#!/usr/bin/perl.exe -w
use strict;
use XML::Simple;
use Data::Dumper;

my $ref = XMLin("./data.xml");

print Dumper($ref);
print $ref->{emp}->{name},$/;
print $ref->{emp}->{age},$/;
print $ref->{emp}->{address},$/

##</code><code>##

<profile>
<emp>
<name>Mahesh</name>
<age>24</age>
<address>New york</address>
<desig>Developer</desig>
</emp>
</profile>

##</code><code>##

$ ./script.pl
$VAR1 = {
          'emp' => {
                     'desig' => 'Developer',
                     'address' => 'New york',
                     'age' => '24',
                     'name' => 'Mahesh'
                   }
        };
Mahesh
24
New york