1#!/usr/bin/env perl
2
3use Cwd;
4use CGI;
5
6use vars '%in';
7CGI::ReadParse();
8
9print "Content-Type: text/html\r\n\r\n";
10
11print "<pre>\n";
12foreach my $key (sort keys %ENV) {
13	print "$key=$ENV{$key}\n";
14}
15
16print "\n";
17
18foreach my $key (sort keys %in) {
19	print "$key=$in{$key}\n";
20}
21
22print "\n";
23
24print 'CURRENT_DIR=' . getcwd() . "\n";
25print "</pre>\n";
26
27my $stuff = <<EOP ;
28<script language="javascript">
29	function set_val() {
30	}
31</script>
32<form method=get>
33	<input type=hidden name=a>
34	<input type=text name=_a onChange="javascript: this.form.a.value=this.value;">
35	<input type=submit value=get>
36</form>
37
38<form method=post>
39	<input type=text name=b>
40	<input type=submit value=post>
41</form>
42EOP
43
44#system('some shit');
45
46print $stuff;
47