Select Code to Download

use Socket     qw( AF_INET SOCK_STREAM PF_UNSPEC );
use IPC::Open3 qw( open3 );
...
}

my ($pid, $to_chld, $fr_chld, $fr_chld_err) = _open3(...);