#!/usr/bin/perl
$\="\n"; $,="=";
print "Content-Type: text/plain\n";
map{print $_, $ENV{$_} } keys %ENV;