die "fork returned $pid";

##</code><code>##

die $!;

##</code><code>##

pid = fork();
switch (pid){
-1: perror("Fork failed");
    exit(-1);
0: /* Child */
   break;
default:
    /* parent */
   break;
}