#!perl -w
use Tk;
use strict;

{
    my $o_wm = MainWindow->new();

    my $o_label_0 = $o_wm->Label(-text=>'Hello, Perl/Tk World!!');
    $o_label_0->pack();
    
    my $o_button_0 = $o_wm->Button(-text=>'Quit', -command=>\&quit);
    $o_button_0->pack();
  
    MainLoop();
}

# Buttonオブジェクトに関連付けた関数
sub quit {
    exit(0);
}

#!perl -w
use Tk;
use strict;

{
    my $o_wm = MainWindow->new();

    my $o_label_0 = $o_wm->Label(-text=>'ようこそ、Perl/Tk ワールドへ!!');
    $o_label_0->pack();
    ...(略)...

#!perl -w
use Tk;
use strict;
use utf8;
...(略)...

#!perl -w
use utf8;
use Encode qw(decode encode);
use strict;

{
    # use utf8; により文字列リテラルは内部文字列(flagged utf8)として扱われる
      my $str0_int = "これは内部定義の文字列リテラル";
    
    # CP932のSTDINから入れた文字列はEncode::decode関数で内部文字列に変換
      my $str1_from_ext = decode('cp932', $ARGV[0]);
    
    # STDOUT出力時は、内部文字列をEncode::encode関数でCP932に変換
      my $str0_to_ext = encode('cp932', $str0_int);
      my $str1_to_ext = encode('cp932', $str1_from_ext);
    
    print '(1):internal:',$str0_to_ext,"\n";
    print '(2):argument:',$str1_to_ext,"\n";
}
> encode_test.pl 日本語のコマンドライン引数
(1):internal:これは内部定義の文字列リテラル
(2):argument:日本語のコマンドライン引数

#!perl -w
use Win32::Exe; # これは標準モジュール
use strict;

{
    my $exe_name = $ARGV[0]; # 第1引数に実行ファイル
    my $ico_name = $ARGV[1]; # 第2引数にアイコンファイル
    
    my $o_exe = Win32::Exe->new($exe_name);   # 実行ファイルオブジェクト作成
    $o_exe->set_single_group_icon($ico_name); # アイコンファイル指定
    $o_exe->write; # 実行ファイル上書き
}