my $sesxp = XML::XPath->new(otherfilename => $SESXML);
print 'SESXML: ' . $xp . "\n";

##</code><code>##

print 'SESXML: ', $xp, "\n";

##</code><code>##

print "SESXML: $xp\n";