#!/usr/local/bin/perl -w
# cgi-printenv.pl -- Zeigt die CGI-Umgebungsvariablen an.

use CGI qw(:standard);

print header,
    start_html('Environment Variables of a CGI Program'),
    h1('The Environment'),
    table(
      map { Tr( td( [ $_, $ENV{$_} ] ) ) }
              sort keys %ENV
         ),
    end_html;