httpi fork perl process for shell script (.pl,.ksh) file name passed through url

httpi_fork_perl_shell

#!/bin/perl
($var_name, $process_name) = split(/=/,$ENV{'QUERY_STRING'});

print "HTTP/1.0 200 OK\r\n";
print "Content-type: text/plain\r\n\r\n";
print "OK";

#print $ENV{'QUERY_STRING'};
$process_path = "";

my $pid = fork;
die "Forking shell process failed: $!" unless defined $pid;

unless ($pid) {
  close(STDOUT);
  close(STDERR);
  close(STDIN);

  exec("nohup $process_path$process_name");
  exit(0);
}
1;