15.17 Windows Perl/TkでDOSシェルウィンドウを消去する

  • プログラムの最初の部分に、次のコードを追加する
BEGIN {
  if ($^O eq 'MSWin32') {
    require Win32:Console;
    Win32::Console::Free();
  }
}