monks,

I am executing very simple program to parse the XML file.

#!/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
[download]

though I have the file_name in the current directory, why I am getting that error ? any idea ?