Perl

  1. ファイル名sample0.cgi
    	#!/usr/bin/perl
    	print "Content-type: text/html\n\n";
    	print "<html>\n";
    	print "<body>\n";
    	print "<form METHOD=GET action=\"./sample0.cgi\">\n";
    	print "<input size=\"30\" name=\"user\" value=\"\">\n";
    	print "<input TYPE=\"submit\" VALUE=\"送信\">\n";
    	print "</form>\n";
    	print "user -> " , $ENV{'QUERY_STRING'}, "\n";
    	print "</body>\n";
    	print "</html>\n";
  2. ファイル名sample1.cgi
    	#!/usr/bin/perl
    	print "Content-type: text/html\n\n";
    	print <<EOF;
    	<html>
    	<body>
    	<form METHOD=GET action="./sample1.cgi">
    	<input size="30" name="user" value="">
    	<input TYPE="submit" VALUE="送信">
    	</form>
    	user ->  $ENV{'QUERY_STRING'}
    	</body>
    	</html>
    	EOF