#!/usr/bin/perl

use strict;
use vars qw(%FORM);

#デコードでしゅよあめぞーさん！！
&decode;

#書き込みですよ西さん！！！
®ist;

#html作成ですよ清水さん！！！
&makehtml;


#==================
#フォームのデコード
#------------------
sub decode
{
my ($buffer,$pair);

if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { $buffer = $ENV{'QUERY_STRING'};}


foreach $pair (split /&/,$buffer) {
my ($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
$FORM{$name} = $value;
}

}


とりあえずこんなかんじで
use strictでかきますんで
あとはweb progの達人さんたちにお任せするってかたちで