| #!/usr/bin/env perl |
| |
| use Cwd; |
| use CGI; |
| |
| use vars '%in'; |
| CGI::ReadParse(); |
| |
| print "Content-Type: text/html\r\n\r\n"; |
| |
| print "<pre>\n"; |
| foreach my $key (sort keys %ENV) { |
| print "$key=$ENV{$key}\n"; |
| } |
| |
| print "\n"; |
| |
| foreach my $key (sort keys %in) { |
| print "$key=$in{$key}\n"; |
| } |
| |
| print "\n"; |
| |
| print 'CURRENT_DIR=' . getcwd() . "\n"; |
| print "</pre>\n"; |
| |
| my $stuff = <<EOP ; |
| <script language="javascript"> |
| function set_val() { |
| } |
| </script> |
| <form method=get> |
| <input type=hidden name=a> |
| <input type=text name=_a onChange="javascript: this.form.a.value=this.value;"> |
| <input type=submit value=get> |
| </form> |
| |
| <form method=post> |
| <input type=text name=b> |
| <input type=submit value=post> |
| </form> |
| EOP |
| |
| #system('some shit'); |
| |
| print $stuff; |