#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
print header,
  start_html(-title => 'ENV vars', -bgcolor => 'white');
foreach (sort keys %ENV){
  print "<b>$_</b> -> \"$ENV{$_}\"\n<br>\n";
}
print   end_html;