Echo server: Difference between revisions
→{{header|Perl 6}}
Line 1,668:
whenever IO::Socket::Async.listen('0.0.0.0', 12321) -> $conn {
whenever $conn.Supply.lines -> $line {
$conn.print( "$line\n" ) ;
}
}
|