use 5.12.0;
use warnings;
use Wx qw( wxID_OK );
use Encode;


my $dlg = Wx::FileDialog->new( undef );
exit unless $dlg->ShowModal == wxID_OK;
my $path = $dlg->GetPath;

$path = Encode::encode( 'cp1252', $path );

say $path;
say -e $path ? 1 : 0;