use strict;
use warnings;
my $xmldoc = XMLin("C:\\dsys.xml");
print Dumper($xmldoc);