#!/usr/bin/perl

use strict;
use integer;

$| = 1;


print "Content-type: text/html\n\n";

my @k = keys ( %ENV );

print "<pre>\n";

foreach my $k ( @k ) {
  printf "%-40s %s\n", $k, $ENV{$k} ;
}

print "</pre>\n";