Select Code to Download

<config>
    <drive name="C" used_oid="1.2.3.4.5.1" size_oid="1.2.3.4.6.1"/>
    <drive name="D" used_oid="1.2.3.4.5.3" size_oid="1.2.3.4.6.3"/>
    <drive name="E" used_oid="1.2.3.4.5.3" size_oid="1.2.3.4.6.3"/>
</config>

use strict;
use XML::Simple;
my $config = XMLin("www.xml");
my $drivename = "C";
print $config->{drive}->{$drivename}->{used_oid},"\n";