#! /usr/local/bin/perl -w

use strict;
use CGI;

my $q = new CGI;

print $q->header(),
    $q->start_html( 'session echo' ),
    $q->h1( 'session echo' ),
    $q->table( 
        $q->TR( { -valign=>'top' },
            [map { $q->th( {-align=>'right'}, $_ ) . $q->td( $ENV{$_} ) } sort keys %ENV]
        )
    ),
    $q->end_html();