#!/usr/bin/perl
#-------------------------------- WHAT IS THIS --------------------------------
# 世界各地の時刻を同時に表示します。ただそれだけ。
#--------------------------------- DISCLAIMER ---------------------------------
# This is for the Public Domain, WITH NO WARRANTY.
#------------------------------------------------------------------------------

@Cities = ('東京    ','西海岸冬','西海岸夏','ｼﾄﾞﾆｰ冬 ','ｼﾄﾞﾆｰ夏 ','GMT    ');
@Lag    = (+ 9*3600 ,- 8*3600   ,- 7*3600   ,+10*3600 ,+11*3600  ,+0 *3600 );

foreach $c (@Cities)
{
	printf "$c ";
}
print "\n";

# ほんとは endless loop させたかったんだけど、ActivePerl 522 で無反応になるので
# 1 回ぽっきりの表示にしました。
$gmt = time;
foreach $L (@Lag)
{
	$lt = $gmt + $L;
	$s = $lt%60;
	$m = ($lt/60)%60;
	$h = ($lt/3600)%24;
	printf "%02d:%02d:%02d ",$h,$m,$s;
}

print "\n";