#!/usr/bin/perl

print "Content-type: text/plain\r\n\r\n";

while (($key, $value) = each %ENV) {
  print "$key\t$value\n";
}