如何在不显示消息框的情况下关闭getFileOpen对话框？

Question

这是我的代码......

 my $current_file=();


 my @types =
   (["PDF files", [qw/.PDF /]],
    ["All files",        '*'],
   );
  $current_file= $mw->getOpenFile(-filetypes => \@types);
#$item=$current_file->Show();


if ( $current_file ) {
        my $response = $mw -> messageBox(-message=>"Upload??",-type=>'yesno',-
    icon=>'question');

    if ( $response -eq "Yes" ) {
        print "$current_file\n"; }
    }

如果我关闭文件对话框，我会收到消息框，但我想要关闭文件对话框。