#!/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($file);


OUTPUT

perl parse_report_layerxml.pl layer.xml
Input file :layer.xml:
Could not find layer.xml in  at parse_report_layerxml.pl line 13