#!/usr/bin/perl

sub print_env_and_args ()
{
  print "Environment\n";
  print "===============================================\n";
  foreach my $key (keys (%ENV)) {
    my $val = $ENV{$key};
    print "   $key $val\n";
  }

  print "\n\n";

  print "Command line arguments\n";
  print "===============================================\n";
  foreach my $arg (@ARGV) {
    print "   $arg\n";
  }
}

&print_env_and_args ();

### Hey, have to incorporate tests for this:
###
# Lee Burgess <lefty@onshore.com> writes:
# > Actually, you don't need to set any variables in your SSI at all.
# > 
# > You just need to call your included cgi script with the proper
# > environment variable, I believe.
# > 
# > Like so in the file index.shtml:
# > 
# > <!--#exec cgi="your.cgi?$QUERY_STRING"-->
# > 
# > So you would call index.shtml like so:
# > 
# > http://www.site.com/index.shtml?foo=bar&sna=foo
# > 
# > Cool?