#!/usr/bin/perl -T

use strict;
use warnings;
use Data::Dumper;

print
        "Content-Type: text/plain\r\n\r\n",
        Data::Dumper->new([\%ENV],['*ENV'])->Sortkeys(1)->Useqq(1)->Dump();