else {
                while ($line = <>) {
                        print $client $line;
                }
        }