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