sub spawn {
    my $self = shift;

    $self->{parent_pid} = $$;
    my $pid = fork;
# ...