#!/usr/bin/perl -w
############################
$|=1;
use strict;
use CGI qw / :all /;
use CGI::Carp qw / fatalsToBrowser /;

my $q = new CGI; # We'll use this later.. you'll see...

print header;
print start_html( -title => 'what my system looks like' );

print h1('Environment');

print table( 
 map { tr ( td($_),td($ENV{$_})) } sort keys %ENV
);

print h1('CGI structure');
print table(
 map { tr ( td($_ ),td($q->param($_))) } sort $q->param
);



if ( $ENV{HOME} ) {
  print h1('MISC stuff');
  my $stuff=`ls -lad $ENV{$HOME}`;
  print p('Home directory permissions',br(),$stuff);
  if ( -d $ENV{HOME} . '/cgi-bin' ) {
     $stuff=`ls -lad $ENV{HOME}/cgi-bin`;
     print p('CGI directory permissions',br(),$stuff);
  } else { 
     print p('The directory cgi-bin is not in $ENV{HOME}');
  }
}

print end_html;

exit(0);