3326.p6

start {
react {
    whenever IO::Socket::Async.listen('localhost', 3333) -> $connection {
        whenever $connection.Supply.lines -> $line {
            die unless $line eq 'ping'; # just checking...
            $connection.print( "pong\n" );
        }
    }
}
}

sleep 0.3;

my $connection = IO::Socket::INET.new( host => 'localhost',  port => 3333 );

my $start = now;
for ^50000 {
    $connection.put( 'ping' );
    my $status = $connection.get( );
    die unless $status eq 'pong'; # just checking...
}

my $time = now - $start;
say $time;
exit 42 if $time < 7;