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;
    }
    CProcess->PrintProcessInfo("perl.exe");