#!/usr/bin/perl -w

$fname = sprintf "%s/Sites/plEnv_%s.html", $ENV{HOME}, $$;
open FOUT, ">$fname";

print FOUT "<html><head>\n<title>.app environment</title></head><body bgcolor=\"#ffffff\" text=\"#000000\">\n";
print FOUT <<EOF;
<table border="1">
<h1>environment variables</h1>
<tr><th>key</th><th>value</th></tr>
EOF
foreach $k ( keys %ENV ) {
	print FOUT "<tr><td>$k</td><td>$ENV{$k}</td></tr>\n";
}
print FOUT "</table></body></html>\n";
close FOUT;

system "open $fname &";
sleep 10;
unlink $fname;

