sub spawn_process {
    my $pid = fork;
    defined($pid) or die "Failed first fork of child process\n";

    # Parent
    waitpid $pid, 0;    # This will happen momentarily
    return;

    # Child
    my $kid = fork;
    defined($kid) or die "Failed second fork of grandchild process\n";
    $kid and exit;

    # Grandchild
    perform_my_tasks();
    exit;  # All your grandchildren are belong to init!
}