#!/usr/bin/perl

use strict;
use CGI;

my $cgi = CGI->new;

print $cgi->header;
foreach my $k (sort keys %ENV) {
  print "$k: $ENV{$k}<br/>";
}

exit 0;