日によって背景色を変える
#! /usr/local/bin/perl
# 日時取得
($sec, $min, $hour, $date, $mon, $year, $wday) = localtime time;
# 背景色の配列（2個以上～31個）
@color = ('#ff9999', '#99ff99', '#9999ff', '#ffff99', '#ff99ff', '#99ffff');
# 日を背景色の数で割ったあまり
$date = $date % @color;
# 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[$date]">\n); # 背景色
print qq(毎日背景色が変わります<br><br>\n);
print qq(</body>\n);
print qq(</html>\n);
exit;
〔 実行する 〕