>> C:/Strawberry/perl/site/lib/XML/LibXML.pm:790:   return $dom;
>> test2.pl:27:     $$xpc = XML::LibXML::XPathContext->new($dom);
>> test2.pl:28:     print "XML imported\n";
XML imported
>> C:/Strawberry/perl/site/lib/Tk.pm:424:      DoOneEvent(0);
>> C:/Strawberry/perl/site/lib/Tk.pm:424:      DoOneEvent(0);
Free to wrong pool 31a960 not 2020202020200a at C:/Strawberry/perl/site/lib/Tk.pm line 424.