#!/usr/bin/perl

use strict;
use CGI;
my $cgi = CGI->new;
print $cgi->header(
  -type => 'text/txt',
);
foreach my $k (sort keys %ENV) {
  print "$k: $ENV{$k}\n";
}