#!/usr/bin/perl
use XML::Simple;
my $opt = XMLin('foo.xml');
print $opt;