Unsupported scripts and control panel web app for a hosting company
Nevar pievienot vairāk kā 25 tēmas
Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.
12345678910 |
- #!/opt/perl/current/bin/perl
- print "Content-type: text/html\n\n";
- print "<HTML><HEAD>";
- print "<TITLE>CGI Test</TITLE>";
- print "</head>";
- print "<BODY><h2>Perl Enviroment Info</h2>";
- foreach $key (sort keys(%ENV)) {
- print "$key = $ENV{$key}<p>";
- }
- print "</BODY></HTML>";
|