|
print "Content-Type: text/html; Charset=shift_jis\n\n";
# ***********************************************************
#
# ***********************************************************
while ( ($Name,$Value) = each %ENV ) {
if ( $Name eq "CONTENT_LENGTH" ) {
print "<font size=+2><b>$Name=$Value</b></font><br>\n";
}
else {
print "$Name=$Value<br>\n";
}
}
| |