#!/usr/local/bin/perl use CGI; use Data::Dumper; my $cgi = new CGI; foreach my $c ($cgi->param()) { $F{$c} = $cgi->param($c); } #open(O, ">>tmp.txt"); #print O Dumper \%F; #close(O); print qq#Content-Type: text/plain\n\n#; if ($F{key_value} ne "post_load_modules.conf") { print qq#
#; exit; } print qq#
#;