#!/usr/bin/perl print "Content-type: text/html\n\n"; print <<_HTML_; <HTML> <HEAD> <META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=EUC-JP"> <TITLE>Env. Test CGI</TITLE> </HEAD> <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#FF0000" ALINK="#FFFF00" VLINK="#FF0000"> <H2>Env. Test CGI</H2> <BR> <TABLE BORDER=2 CELLPADDING=2 CELLSPACING=2> _HTML_ foreach $name (sort(keys %ENV)) { print qq(<TR><TD BGCOLOR="#300000" NOWRAP>$name</TD><TD BGCOLOR="#003000" NOWRAP>$ENV{$name}</TD></TR>\n); } print <<_HTML_; </TABLE><P> </BODY> </HTML> _HTML_ exit;
一行目の #!/usr/bin/perl は環境によって(例えばWindowsの場合など)
#!c:/perl/bin/perl
となります。