#!/usr/local/bin/perl
#Prints all the environment variables
# script: printenv.pl

require '/home/scsfac/downeyt/scripts/parse-lib.pl';

&my_print_HTTP_header;
&my_print_head("Environment Variables","bgcolor=red text=white");
&my_print_body;
&my_print_tail;


# Loop through the environment variable
# associative array and print out its values.
sub my_print_body {
    foreach $variable (sort keys %ENV) {
	print "<STRONG>$variable:</STRONG> $ENV{$variable}<BR>\n";
    }
}