while (my $client = $server->accept) {
     $client->autoflush(1);
     while (<$client>) {        

     if (/^output/s) {
        print $_;
     }