だから・ね，

_ 独学日記　ではPerl4の'cgi-lib.pl'で

まず，Perl5の前にPerl4での手法として"GetPost.cgi"を次のようにしてみる。

 #!C:/perl/bin/perl
 require './cgi-lib.pl';
 local($key,$val);
 &ReadParse;
 while ( ($key,$val) = each(%in) ) {
 	$in{$key} = $val;
 }
 print "Content-type: text/html\n\n";
 foreach (sort keys %in) {
 	print "$_: $in{$_}<BR>\n";
 }
 print "<hr/>\n";
 foreach (@in) {
 	print "$_ <BR>\n"
 }
 exit;

　"cgi-lib.pl"を同一フォルダーに置き，アップロードしない場合は次のようになる。

 all: 実行
 file: 
 mail: hoge@hoge.com
 name: hoge
 zip: 7777777

　ふぁいるのアップロードをする場合の表示は，崩れたので，'file'の値をバイナリーとして保存すればよいと考える。

 $arg=$in{'file'};
 open (OUT,"> temp.dat");
 	binmode(OUT);
 	print OUT $arg;
 close (OUT);