#!/usr/bin/perl

    use strict;
    use warnings;

    use CGI;
    use Data::Dumper;

print "Content-type: text/html\n\n";

print "<pre>",
        CGI::escapeHTML(Dumper(\%ENV)),
        "</pre>";