#$SIG{'WINCH'} = sub {
#    if (!$CONNECTED) {
#        return 1;
#    }
#    while (!$EXP->slave) {
#        select(undef, undef, undef, 0.1);
#    };
#    $EXP->slave->clone_winsize_from(\*STDIN);
#    kill 'WINCH'=>$EXP->pid if $EXP->pid;
#};

sub winch {
    $SIG{'WINCH'} = undef;
    select(undef, undef, undef, 0.2);
    while (!$EXP->slave) {
        select(undef, undef, undef, 0.1);
    };
    $EXP->slave->clone_winsize_from(\*STDIN);
    kill 'WINCH'=>$EXP->pid if $EXP->pid;
    $SIG{'WINCH'} = \&winch;
    return 1;
}
$SIG{'WINCH'} = \&winch;