It's very easy. If successful, fork returns the pid of the child process. Thus, you can do something like:

 die "fork: $!" unless defined ($pid = fork);

    if ($pid) {
    # this is the parent process
    # do something parental
    } else {
    # this is the child process
    # do something childish
    }
[download]