this is responsive, I mean it responds to a signal dying

gistfile1.txt

my $socket = IO::Socket::Async.listen('192.168.1.106', 5000);

react {
    whenever $socket.Supply -> $v {
        if $v.chars > 0 {
            say $v;
        }
    }
}