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

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

my $path = $dlg->GetPath;

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