#!/usr/bin/perl

# 名前： UNKO ヾ('Д')㍑㍗と作ろう、CGI　１周年カウントダウン！
# 版数： 2002/7/1 から 2002/7/19までしか正常動作しない版 Ver 1.0
# 著作： UNKO ヾ('Д')㍑㍗と作ろう、CGI　１周年カウントダウン！委員会

$title1="UNKO ヾ('Д')㍑㍗と作ろう、CGI";
$title2="１周年カウントダウン！";
$Memorialday=19;

$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy,$dmy) = localtime(time);

$count = $Memorialday - $mday;

print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>$title1</TITLE></HEAD>";
print "<BODY><CENTER>";

print "<BR>$title1<BR><BR>$title2<BR><BR><BR>";
print "<BR>$title1<BR>スレ立て記念日[7/19]１周年まで…<BR>";
print "<BR>あと $count日<BR>";
print "</CENTER></BODY></HTML>";