#!/usr/local/bin/perl require '../cgi-lib.pl'; require '../jcode.pl'; #------------------------------------------- $script = 'jikken6_5.cgi'; # このプログラム自身 ■■■■■■■■ 変更箇所① #------------------------------------------- $message = ""; # $message の中を一応空っぽに掃除をする。プログラマ的神経質(省略可) $body = '<body text="white" bgcolor="black" link="red">'; # ===== プログラムの流れ ========== &form_decode; # 送られてくるデータを受け止める &html; # HTM