[問題] Win32環境下使用TK模組視窗無法持久

[DayOK ()]

  最近使用TK模組寫視窗

  程式寫完可以執行

  但是視窗一閃而過無法持久

  不知道是什麼問題

  我是在window的桌面上直接點擊***.pl

  以下是我寫的程式

  #!/usr/bin/perl -w

  use TK;

  my $mw=MainWindow->new;
  $mw->title("Bad Window");
  $mw->Label("Hallo")->pack;

  $mw->Checkbutton(-text=>"a")->pack;

  $mw->Button(-text=>"Exit",-command=>sub{exit})->pack;

  MainLoop;

  請問哪裡有錯~

  謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 59.112.32.183