home *** CD-ROM | disk | FTP | other *** search
/ Teach Yourself CGI Programming with Perl in a Week / CGIPROGRAMMINGPERL.iso / booksrc / 06cgil04.cgi < prev    next >
Encoding:
Text File  |  1995-12-08  |  561 b   |  56 lines
  1. #!/usr/local/bin/perl 
  2. push(@INC, "/cgi-bin");
  3. require("cgi-lib.pl");
  4.  
  5.  
  6. print &PrintHeader;
  7.  
  8. print "<html>\n";
  9. print "<head> <title> Environment Variables </title> </head>\n";
  10. print "<body>\n";
  11. print <<"EOF";
  12. <center>
  13. <table border=2 cellpadding=10 cellspacing=10> 
  14. <th align=left><h3>Environment Variable</h3> 
  15. <th align=left> <h3>Contents </h3><tr>
  16. EOF
  17. foreach $var (sort keys(%ENV))
  18. {
  19.  
  20.     print "<td> $var <td> $ENV{$var}<tr>";
  21. }
  22. print <<"EOF"
  23. </table>
  24. </body>
  25. </html>
  26. EOF
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.