I can't look any more deeply at the problem until you look closely at these two lines:

    my $xml = xmlFileData("Config",$Session->{'usrSystem'}.".config.xm
+l","getConfig()");
    if (!$xml)
[download]

I have no idea what the arguments are, and even if I did know what the args were, I don't really feel like debugging the bunch of code in xmlFileData that you just posted. So, like I said before, check the arguments. If the arguments look ok, debug what's happening in xmlFileData(). Look at one thing at a time until you find out what the problem is. Try reading brian's Guide to Solving Any Perl Problem.