#!/usr/bin/perl
#宣告使用Tk
use Tk;
#使用嚴謹的語法
use strict;
#宣告一個變數供Tk建立視窗
my $main=MainWindow->new;
#設定視窗標題
$main->title('New Window');
#顯示視窗
MainLoop();

文章標籤
全站熱搜
創作者介紹
創作者 hechian 的頭像
hechian

卐只有兩面的盒子卍

hechian 發表在 痞客邦 留言(0) 人氣(156)