#! /usr/bin/perl

# 環境変数設定
$ENV{'TZ'} = "JST-9";

# 日本時間
($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime(time);
$jst = "日本標準時：$mday日 $hour時$min分$sec秒.\n";

# 環境変数設定
$ENV{'TZ'} = "GMT";

# グリニッジ標準時
($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime(time);
$gmt = "グリニッジ標準時：$mday日 $hour時$min分$sec秒.\n";

# 環境変数設定
$ENV{'TZ'} = "CST+6";

# アメリカ中部時間
($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime(time);
$cst = "アメリカ中部標準時：$mday日 $hour時$min分$sec秒.\n";

# 表示
print $jst;
print $gmt;
print $cst;

exit;