#!/usr/bin/perl  
print "Content-Type: text/html; charset=UTF-8\n\n";  
  
print "<pre>\n";  
foreach(keys(%ENV)) {  
  print "ENV{$_}:\t$ENV{$_}\n";  
}