#! /usr/bin/env perl6 use v6; react { whenever IO::Socket::Async.listen('0.0.0.0', 3333) -> $conn { my $tap = do whenever Promise.in(4) { $conn.print("TIMEOUT\n"); $conn.close; }; whenever $conn.Supply.lines -> $line { $tap.close; $tap = do whenever Promise.in(4) { $conn.print("TIMEOUT\n"); $conn.close; }; $conn.print("$line\n"); } } whenever signal(SIGINT) { done(); exit; } }