曜日によって背景色を変える
#! /usr/local/bin/perl
# 日時取得
($sec, $min, $hour, $date, $mon, $year, $wday) = localtime time;
# 曜日の背景色（日曜～土曜）
@color = ('#ff9999', '#99ff99', '#9999ff', '#ffff99', '#ff99ff', '#99ffff', '#ffcc99');
# 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[$wday]">\n); # 背景色
print qq(曜日によって背景色が変わります<br><br>\n);
print qq(日曜日 <font color="$color[0]">■</font>$color[0]<br>\n);
print qq(月曜日 <font color="$color[1]">■</font>$color[1]<br>\n);
print qq(火曜日 <font color="$color[2]">■</font>$color[2]<br>\n);
print qq(水曜日 <font color="$color[3]">■</font>$color[3]<br>\n);
print qq(木曜日 <font color="$color[4]">■</font>$color[4]<br>\n);
print qq(金曜日 <font color="$color[5]">■</font>$color[5]<br>\n);
print qq(土曜日 <font color="$color[6]">■</font>$color[6]<br>\n);
print qq(</body>\n);
print qq(</html>\n);
exit;
〔 実行する 〕