my $pid; if (! defined ( $pid = fork ) ) { DieNice("Unable to fork: $!\n"); } if ( !$pid ) { close(STDIN); close(STDOUT); } else { print $query->redirect( "$Config::Setting{ScriptsDirectoryURL}/$Config::Setting{ScriptFilename}?Command=Update&Update=$Instance{ReportNumber}&Bottom"); exit; }