my $pty = new IO::Pty;
$pty->set_raw();
my $pid = fork // die;
unless ($pid) {
  $pty->make_slave_controlling_terminal();
  close STDIN; open STDIN, "+>&", $pty->slave;
  # ditto for STDOUT, ...; close $pty->slave;
  exit !exec @the_program;
}
close $pty->slave;
event_loop_passing_data_between($pty, $socket)