Select Code to Download

<operating_systems>
  <os score="10" name="Linux" />
  <os score="7" name="BeOS" />
  <os score="-999999999" name="Windows 9x" />
</operating_systems>

#!/usr/bin/perl

...
my $ref = XMLin($file);

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

$VAR1 = {
    'os' => {
...
            }
     }
};