#!/usr/bin/perl

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

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

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