#!/usr/bin/perl -w

use CGI;
use strict;
our($query);

$ENV{DOGGY} = 'fido:rover:prince';

$query = new CGI;

print $query->header, "\n", 
    $query->start_html(-title=>'id',
		       -style => {
			   code => '
.dat {
 font-size: 14pt;
 font-weight: bold;
 font-family: sans-serif;
}
td {
 font-family: sans-serif;
}
'},
		       ), '
<div class="dat">
';

foreach (split /\s/, `/usr/bin/id`) {
    print "$_<br>\n";
}
print '</div>

<hr noshade="noshade" size="1" />

<table>
';
foreach (sort keys %ENV) {
    print "<tr valign=\"top\">
 <td>$_</td>
 <td>$ENV{$_}</td>
</tr>
";
}
print '</table>
</font>

<hr noshade="noshade" size="1" />
', $query->end_html, "\n";