my $pid = fork;
if ( defined $pid ) {
   unless ($pid) {
       # Detach from parent
       setsid or  print("Can't detach from parent. notify cvs admin: $!");
       exec "perl ${script_dir}/check_and_auto_merge.pl $gUSER $lBranch";
       die "Failed exec auto_merge.pl\n copy log and notify cvs admin\n\nExec failed: $!\n";
       exit 1;
   }
}
print("Parent ended");