Something

#!/usr/bin/perl

# use module
use XML::Simple;
use Data::Dumper;

$p="/opt/hadoop-0.15.3/conf/hadoop-site.xml" ;

# create object
$xml = new XML::Simple;

# read XML file
$data = $xml->XMLin($p);

# print output
print Dumper($data->{property});

# print fs node



output

$VAR1 = {
          'dfs.replication' => {
                                 'value' => '1'
                               },
          'fs.default.name' => {
                                 'value' => 'localhost:9000'
                               },
          'mapred.job.tracker' => {
                                    'value' => 'localhost:9001'
                                  }
        };