独学日記　ではPerl5の'CGI.pm'で
まず，Perl5での手法はより直接的になり"GetPost.cgi"を次のようにしてみる。
<pre>
 #!C:/perl/bin/perl
 use CGI qw(:standard);
 $Wname=param('name');
 $Wmail=param('mail');
 $Wzip=param('zip');
 $Wzip_q=param('zip_q');
 $Wfile=param('file');
 $Wall=param('all');
 
 print "Content-type: text/html\n\n";
 print "name:$Wname<br>\n";
 print "mail:$Wmail<br>\n";
 print "zip:$Wzip<br>\n";
 print "zip_q:$Wzip_q<br>\n";
 print "file:$Wfile<br>\n";
 print "all:$Wall<br>\n";
 exit;
</pre>

　上記でディスクトップ上にある"hoge.gif"を指定し実行させると，次のようになる。
<pre>
 name:hoge
 mail:hoge@hoge.com
 zip:7777777
 zip_q:
 file:C:\Documents and Settings\hoge\デスクトップ\hoge.gif
 all:実行
</pre>