#!/usr/bin/perl -w
use strict;
$|++;

use CGI;

my $cgi = CGI->new;

print $cgi->header,
      $cgi->start_html,
      $cgi->pre(
                ( map { "$_\t$ENV{$_}\n" } keys %ENV )
               ), 
      $cgi->end_html;