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