while (defined($line= <STDIN>)) {
    print $rem_socket $line;
}