#!/opt/perl5/bin/perl -w use strict; use CGI; # set path, instead of putting it in the open statement $ENV{'PATH'} = "/usr/bin:/opt/perl5/bin/:"; #location of product_gen.pl, plus arguments my $gen_script = "/path/to/server/product_gen.pl -prfv"; # Create a new CGI object my $cgi = new CGI; # Output HTML header to browser print $cgi->header('text/html'); print qq{

script executing

}; open(PRODUCT_GEN, "nohup perl $gen_script |") or die "Error: $!\n"; while () { print $_, "
"; } close(PRODUCT_GEN);