1 files changed, 15 insertions, 0 deletions
diff --git a/env.pl b/env.pl
new file mode 100755
index 0000000..06db507
--- /dev/null
+++ b/env.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+use strict;
+use CGI qw(:standard);
+use CGI::Carp 'fatalsToBrowser';
+
+print header;
+print start_html('env');
+
+print CGI::start_table();
+foreach my $row (keys %ENV)
+{
+  print Tr(td[$row,$ENV{$row}]);	
+}	
+print CGI::end_table();
+print end_html;