foreach (grep(/^.*\.xml$/, readdir(DIR)))
{
open (FIN, "<$_") or die ("$_ is not opened\n");
undef $/;
print "Pls enter Section level value for $_ :  ";
chop ($seclev = <STDIN>)
}