#!/usr/bin/perl
#
# 日付、時刻の表示
#
# ↓カスタマイズ可能な変数↓
$title = "Today status";
# ヘッダー出力
print "Content-type: text/html\n\n$title";
# 時刻によって表示するメッセージ
@msg = ('日付が変わりました。昨日はどんな１日でしたか？',
'まだまだインターネットしてますね♪',
'そろそろ寝ないと明日が辛いですよ？',
'夜のおやつの時間です？',
'こんな時間まで起きてるなんて凄い♪',
'そろそろ新聞配達がくる時間です',
'おはようございま〜す！早起きさんですね♪',
'おはようございます。今日も１日がんばりましょう！',
'あれれ？今日の仕事は？',
'家事が一段落しましたか？',
'もう１０時ですよ！',
'そろそろお腹が空きましたね〜',
'お昼ご飯は済みましたか？',
'ご飯の後は眠くなるですね',
'コーヒーでも飲んで頑張りましょう！',
'お昼寝する時間ですよ♪',
'眠気ピーク！！',
'そろそろ仕事が終わる時間ですね',
'今日のおかずはなんでしょうね！？',
'今日の夜ご飯は何でしたか？',
'はちじだよっ！',
'もうそろそろ寝る時間ですね',
'この時間は回線が空いてて良いですね',
'テレホーダイタイムが始まりました',
);
# 時刻、日付の情報を得る
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon++; # 月は０から始まるので１足す
print <
今日は$mon月$mday日です。
今の時刻は$hour時$min分$sec秒です。
$msg[$hour]