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

arrow
arrow
    全站熱搜

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

    E-mail轉寄