Select Code to Download

use XML::Simple;
use Data::Dumper;
$Data::Dumper::Indent = 1;
my $config = XMLin();
print Dumper($config);

$VAR1 = {
  'Node' => [
...
    }
  ]
};