if ( (my $pid = fork()) < 0){

print STDERR "fork error
";

}elsif($pid == 0){

# in the child process

&srout

}else{

# In the parent process. Do something else, and

waitpid($pid, 0);

}