Lauct’s BLOG

#!/usr/bin/env perl
 
# helloworld.pl
#
# Created by Chun-Ting Liu on 2009-10-28
 
require 5.008008;
use warnings;
use strict;
use Tk;
my $mw = MainWindow->new;	#建立一個視窗
$mw->title("Hello World");	#改變視窗標題文字，若沒有指定則預設為檔名（首字母會自動大寫）。title method不是必要的但會比較好看。
$mw->Button(-text => "Done!",
	-command => sub { exit })->pack();
	#建立一個寫著Done!的Button widget，點擊後則執行 exit。
MainLoop;	#開始GUI事件處理