如何用Perl创建Yes/No输入的Tk::Dialog？脚本报错求助

尝试在Perl中使用简单的Tk Yes/No对话框，基于示例编写了如下脚本：

#!/usr/bin/perl

use strict;
use warnings;
use Tk::Dialog;

my $mw->Dialog->new();
my $dialog = $mw->Dialog(-text => 'Save file?',
                      -bitmap => 'question',
                      -title => 'Save File Dialog',
                      -default_button => 'Yes',
                      -buttons => [qw/Yes No Cancel/]);
print "$dialog\n";

运行脚本时抛出错误：

Can't call method "Dialog" on an undefined value at script.pl line N.

请问哪里出错了？

• 未初始化Tk主窗口：$mw是Tk的主窗口对象，但你既没导入核心Tk模块，也没创建主窗口实例。必须先通过use Tk;导入核心模块，再用MainWindow->new()初始化主窗口，否则$mw是未定义值，无法调用Dialog方法。
• 错误的初始化代码：my $mw->Dialog->new();这行完全错误，既不能创建主窗口，也无法生成对话框，直接删除即可。

修正后的完整脚本：

#!/usr/bin/perl

use strict;
use warnings;
use Tk;  # 导入Tk核心模块
use Tk::Dialog;

# 初始化主窗口
my $mw = MainWindow->new();
# 创建对话框
my $dialog = $mw->Dialog(
    -text => 'Save file?',
    -bitmap => 'question',
    -title => 'Save File Dialog',
    -default_button => 'Yes',
    -buttons => [qw/Yes No Cancel/]
);
# 显示对话框并获取用户选择
my $choice = $dialog->Show();
print "用户选择了：$choice\n";

# 启动Tk事件循环，否则对话框无法显示
MainLoop();

补充说明：

• 必须调用MainLoop()启动Tk事件循环，否则对话框不会显示。
• Show()方法会阻塞直到用户点击按钮，返回值为用户点击的按钮文本，可据此做后续逻辑处理。

内容的提问来源于stack exchange，提问作者skeetastax