use IPC::Open3 qw( open3 );

sub create_child {
    my $pid = open3(
       local *TO_CHLD,
       local *FR_CHLD,
       local *FR_CHLD_ERR,
       @_
    );
    return ( $pid, *TO_CHLD, *FR_CHLD, *FR_CHLD_ERR );
}