CProcess->PrintProcessInfo("perl.exe");
	eval 'use XML::Simple';
	CProcess->PrintProcessInfo("perl.exe");
	my $xs  = new XML::Simple();
	my $root= $xs->XMLin('D:\xTools\test\xmltest.xml');
	CProcess->PrintProcessInfo("perl.exe");
	undef $root;
	undef $xs;
	eval 'no XML::Simple';
	CProcess->PrintProcessInfo("perl.exe");