Hi,
Thank you for the help. I was trying your suggestion but it is showing up syntax error near the end of the script "}"
#!/usr/local/bin/perl-w
use strict;
use warnings;
use XML::Simple;
my $path = 'C:\Documents and Settings\user\Desktop\output2\FITS\ IMD02
+5350802'; # add your path here
for my $xfile (glob "$path/*.xml") {
print "xfile=$xfile\n";
my $xml = XML::Simple->new();
my $file = $xml->XMLin($xfile) or die $!;
if (($file->{identification}{'identity'}{'format'} eq 'JPEG File I
+nterchange Format') &&
($file->{filestatus}{'well-formed'}{'content'} eq 'true') && ($file->{
+filestatus}{'valid'}{'content'} eq 'true'))
}
Error: syntax error at one.pl line 14, near ")
}"