[wxPerl] Spreadsheet::Read 사용시 실행프로그램이 죽는 문제

D:\perl> wxpar --gui Excel-Wx.pl -o  Excel-Wx.exe
 
Running Command .....
 
pp @Excel-Wx.wxparargs --gui Excel-Wx.pl -o Excel-Wx.exe
 
 .....
 
D:\perl>

MS Windows 10 64bit, Intel i5-7400, 8 Gbyte RAM, 
Perl v5.26.1 for MSWin32-x64-multi-thread
(Strawberry Perl)

use Wx::Perl::Packager; # wxpar --gui Excel-Wx.pl -o  Excel-Wx.exe
 
use strict;
use warnings;
use utf8; 
use Spreadsheet::Read qw(ReadData);
use File::Basename;
use Encode;
 
use Wx;
use Wx qw(:everything);
use Wx::Event qw(EVT_MENU EVT_BUTTON);
 
my $App = Wx::SimpleApp->new;
 
my $frame = Wx::Frame -> new(
    undef,  #Label
    -1, #ID 
    "",#frame name
    [50,50], # position x, y
    [300,150],# width, height
    wxMINIMIZE_BOX | wxMAXIMIZE_BOX | wxSYSTEM_MENU | wxCAPTION | wxCLOSE_BOX #Default
    );
 
my $xoff=10 ; my $yoff1=10 ;
 
### Part1###
#Button Widget 
my $button1 = Wx::Button->new(
    $frame, 
    -1, #ID 
    'Load', # Button label
    [0+$xoff,0+$yoff1] # position x, y
    );
#Button1 Event
EVT_BUTTON(
    $frame, 
    $button1, #Button 
    \&button1_event #event function
    );
 
$frame -> Show(); $App -> MainLoop  ();
 
########
my $Path1; my $File1; my $XLS1; 
 
# button1 Event
sub button1_event{ 
    my $pre_dir ="./";	my $pre_file='';	
	my( $self, $event ) = @_;	
 
	my $dialog = Wx::FileDialog->new ( 
			$self,
			"Load",  # Title
			$pre_dir, $pre_file,
		  "|*.xls*|All files (*.*)", 
		  wxFD_OPEN  | wxFD_MULTIPLE 
	);      
 
	if( $dialog->ShowModal != wxID_CANCEL ) {
			$Path1 = $dialog->GetPath;
			$File1 = basename($Path1) ;
			$Path1 =  encode( 'cp949', $Path1 ); # MS Windows 
 
			$XLS1 = ReadData( $Path1 ) ;  #문제의 CODE
	}
}