RosettaCodeData/Task/Echo-server/Perl-6/echo-server-2.pl6

react {
    whenever IO::Socket::Async.listen('0.0.0.0', 12321) -> $conn {
        whenever $conn.Supply.lines -> $line {
            $conn.print( "$line\n" ) ;
        }
    }
}