sub pty_spawn {
    my $pty = new IO::Pty;
    $pty->set_raw();    # stty -opost -echo!

    my $pid = fork // die;

    unless ($pid) {
        $pty->make_slave_controlling_terminal();
        # $pty->slave->clone_winsize_from(\*STDIN);
        close STDIN;
        close STDOUT;
        open STDIN, "+>&", $pty->slave;
        open STDOUT, "+>&", $pty->slave;

        exit !exec @_;
    }

    close $pty->slave;
    return $pty;
}