$pid = fork();
    if( $pid == 0 )
    {
        setsid();
        # -----------------------------------------
        close STDIN;
        close STDOUT;
        close STDERR;
        # -----------------------------------------
        my $p_pid;
     	 $p_pid = getppid;
        ae_util::mylog( "START Child process: $$.$p_pid " );
        sleep 1;
        ae_util::mylog( "EXIT Child process: $$.$p_pid " );
        # CORE::exit(0);
	     exit;
    }