月によって背景色を変える
#! /usr/local/bin/perl
# 日時取得
($sec, $min, $hour, $date, $mon, $year, $wday) = localtime time;
# 月の背景色を設定（12色）
@color = ('red', 'blue', 'green', 'yellow', 'aqua', 'maroon', 'purple', 'fuchsia', 'olive', 'silver', 'teal', 'lime');
# HTML出力
print qq(Content-type: text/html\n\n);
print qq(<html>\n);
print qq(<head>\n);
print qq(<title>月によって背景色を変える</title>\n);
print qq(</head>\n);
print qq(<body bgcolor="$color[$mon]">\n); # 背景色
print qq(月によって背景色が変わります<br><br>\n);
print qq(1月 <font color="$color[0]">■</font>$color[0]<br>\n);
print qq(2月 <font color="$color[1]">■</font>$color[1]<br>\n);
print qq(3月 <font color="$color[2]">■</font>$color[2]<br>\n);
print qq(4月 <font color="$color[3]">■</font>$color[3]<br>\n);
print qq(5月 <font color="$color[4]">■</font>$color[4]<br>\n);
print qq(6月 <font color="$color[5]">■</font>$color[5]<br>\n);
print qq(7月 <font color="$color[6]">■</font>$color[6]<br>\n);
print qq(8月 <font color="$color[7]">■</font>$color[7]<br>\n);
print qq(9月 <font color="$color[8]">■</font>$color[8]<br>\n);
print qq(10月 <font color="$color[9]">■</font>$color[9]<br>\n);
print qq(11月 <font color="$color[10]">■</font>$color[10]<br>\n);
print qq(12月 <font color="$color[11]">■</font>$color[11]<br>\n);
print qq(</body>\n);
print qq(</html>\n);
exit;
〔 実行する 〕