#!/usr/bin/env perl use strict; use CGI; my $PASSWORD = "gagaga"; # Change this!!!!!!!! my $q = new CGI; if ($q->param('passwd') eq $PASSWORD and $q->request_method() eq "POST") { print ; exit; } print $q->header, $q->start_html, $q->start_form(-method=>"POST"), $q->password_field(-name=>'passwd'), $q->submit, $q->end_form, $q->end_html, "\n"; __DATA__ Content-type: text/html; charset=EUC-JP 秘密の日記

秘密の日記

2004年4月1日

ウハウハ！

2004年3月31日

へへへ