##

#!/usr/bin/perl

use warnings;
use XML::Simple;
use Data::Dumper;

my $file = './os.xml';
my $ref = XMLin($file);

print $ref{'os'}->{'Linux'}->{'score'};

##

##

$VAR1 = {
    'os' => {
           'BeOS' => {
                      'score' => '7'
                      },
            'Windows 9x' => {
                      'score' => '-999999999'
                      },
            'Linux' => {
                      'score' => '10'
            }
     }
};