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