use XML::Simple;
my $xml = new XML::Simple (KeyAttr=>[]);
my $data;
eval {  $data = $xml->XMLin("cmd-out\/$hostname.xml"); };
if ( $@ ){
    die "$@";
}
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.