form.cgi

#! /usr/local/bin/perl

require "/u/www/root/admin/bin/cgi.pl";

print &mime_header();
%data = &get_data();

print "Data from the form:\n";
print "<HR><PRE>\n";

foreach (sort(keys %data)) {print "$_ = $data{$_}\n";}

print "</PRE>\n";

print "<p><HR><p>\n";
print "Environment:";
print "<HR>\n";
print "<PRE>\n";

foreach (sort(keys %ENV)) {print "$_ = $ENV{$_}\n";}

print "</PRE>";
print "<HR><PRE>\n";
print "PWD = ",`pwd`;
print "</PRE><HR>\n";