perltk请教

在windows下 ，有如下例子：

use Tk;
my ( $size, $step ) = ( 200, 10 );
# Create MainWindow and configure:
my $mw = MainWindow->new;
$mw->configure( -width=>$size, -height=>$size );
$mw->resizable( 0, 0 ); # not resizable in any direction
# Create and configure the canvas:
my $canvas = $mw->Canvas( -cursor=>"crosshair", -background=>"white",
              -width=>$size, -height=>$size )->pack;
# Place objects on canvas:
$canvas->createRectangle( $step, $step, $size-$step, $size-$step, -fill=>"red" );
for( my $i=$step; $i<$size-$step; $i+=$step ) {
  my $val = 255*$i/$size;
  my $color = sprintf( "#%02x%02x%02x", $val, $val, $val );
  $canvas->createRectangle( $i, $i, $i+$step, $i+$step, -fill=>$color );
}
MainLoop;


用的activeperl .

双击本perl脚本，除了出现应该有的图形窗口以外，后面还有个perl.exe的窗口。

请问有什么办法隐藏这个这个perl.exe的窗口。

谢谢各位达人赐教。

Perl cookbook2的方法：
Add this to the start of your program:
BEGIN {
  if ($^O eq 'MSWin32') {
    require Win32::Console;
    Win32::Console::Free( );
  }
}

谢谢楼上的兄弟

perlapp 的 hide console windows || perl2exe  的 -gui 函數 (perl2exe "perl源文件的路徑" -gui)
譯作PE文件後
perl.exe的窗口就會消失
有問題請e-mail到
lokchungk@hotmail.com

use Win32::GUI
win32::childwindows(0)

Perl真神奇。

也可以创建一个快捷方式以以下方式运行perl程式

wperl script