use strict;
use XML::LibXML;
use Tk;

my $filename;
my $xpc;

my $mw = MainWindow->new( -title => 'GUI' );
$mw->Button( -text => 'Load XML', -command => \&tk_Load_Export )->grid(-column => '0', -row => '0', -sticky => 'e');
MainLoop;

sub tk_Load_Export {
  $filename = $mw->getOpenFile( -title => 'Load XML', -defaultextension => '.xml', -initialdir => '.' ) or return;
  import_XML($filename);
}

sub import_XML {
	print "Reading the XML file $filename\n\n";
	my $dom = XML::LibXML->load_xml(location => $filename, huge => 1);
	$xpc = XML::LibXML::XPathContext->new($dom);
	print "XML imported\n"; 
}

##</code><code>##

Problem signature:
  Problem Event Name:	APPCRASH
  Application Name:	perl.exe
  Application Version:	5.30.0.1
  Application Timestamp:	5ce675b5
  Fault Module Name:	Tk.xs.dll
  Fault Module Version:	8.4.2.5
  Fault Module Timestamp:	5d48325f
  Exception Code:	c0000005
  Exception Offset:	000000000006b197
  OS Version:	6.1.7601.2.1.0.256.48
  Locale ID:	1033
  Additional Information 1:	0922
  Additional Information 2:	09222532a50de2713b0e459db9ce5206
  Additional Information 3:	1a6d
  Additional Information 4:	1a6d675851be0305a03f72c1d1fc7bfd

  --
  
Problem signature:
  Problem Event Name:	APPCRASH
  Application Name:	perl.exe
  Application Version:	5.30.0.1
  Application Timestamp:	5ce675b5
  Fault Module Name:	Tk.xs.dll
  Fault Module Version:	8.4.2.5
  Fault Module Timestamp:	5d48325f
  Exception Code:	c000041d
  Exception Offset:	000000000006b197
  OS Version:	6.1.7601.2.1.0.256.48
  Locale ID:	1033
  Additional Information 1:	0561
  Additional Information 2:	056116c4c04c02ca22cbeb428d55467a
  Additional Information 3:	dab2
  Additional Information 4:	dab22cdd161f9720b851e7ce36d909c8


##</code><code>##

Free to wrong pool 46af30 not 645b4f4a at C:/Strawberry/perl/site/lib/Tk.pm line 424.