sub for{
    my $pid = fork;
    if($pid == 0 ){
        diag "$$: 0\n";
        exit;
    }else{
        diag "$$: 1\n";
        waitpid($pid,0);
    }
    1;
}