while( my $client = $server->accept ) {
    async{
        while( my $in = <$client> ) {
            print $client $in; ### simple echo server
        }
    }->detach;
}