my $buf = <$client>;
            chomp $buf;
            print $buf;

##</code><code>##

while (my @ready = $sel->can_read) {
        foreach $client (@ready) {