use CGI qw(header);
print header('text/plain');
for (sort keys %ENV) {
  print "$_ => $ENV{$_}\n";
}