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

##</code><code>##

test@test-VirtualBox:~$trap 'stty size' winch
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85
test@test-VirtualBox:~$ 24 85

 <-= DISCONNECTED (PRESS <ENTER> TO RECONNECT) (Thu Nov 28 13:14:40 2019)

##</code><code>##

hans@hans-desktop:~$ trap 'stty size' winch
hans@hans-desktop:~$ 
hans@hans-desktop:~$ 
hans@hans-desktop:~$ 
hans@hans-desktop:~$ 
hans@hans-desktop:~$ 
hans@hans-desktop:~$ 

##</code><code>##

$SIG{'WINCH'} = sub {
    kill WINCH => $EXP -> pid if $EXP -> pid;
};