added the working code here.

#!/usr/bin/perl

my $file = shift;
use XML::Simple;

die "Can't find file \"$file\"" unless -f $file;

$xml = new XML::Simple;

print "Input file :$file:\n";

# read XML file
$data = $xml->XMLin("/full_path_name/$file");
[download]