#!/usr/bin/perl -w use CGI qw(header); print header('text/plain'); print map { "$_ => $ENV{$_}\n" } sort keys %ENV;