如何在perl中打开弹出窗口时继续执行其他部分代码

use Tk;

# 创建主窗口
my $mw = MainWindow->new;

# 创建按钮，点击按钮时弹出窗口
my $button = $mw->Button(
    -text    => "Open Popup",
    -command => \&open_popup
)->pack;

# 执行其他部分代码
print "Executing other code...\n";
# 这里可以继续编写其他代码

# Tk的主循环，用于处理GUI事件
MainLoop;

# 弹出窗口的回调函数
sub open_popup {
    # 创建弹出窗口
    my $popup = $mw->Toplevel;
    $popup->title("Popup Window");

    # 在弹出窗口中添加元素
    my $label = $popup->Label(
        -text => "This is a popup window."
    )->pack;

    # 这里可以添加更多的弹出窗口元素和逻辑

    # 弹出窗口关闭后继续执行其他部分代码
    $popup->OnDestroy(sub {
        print "Popup window closed.\n";
        # 这里可以继续编写其他代码
    });
}