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

##</code><code>##

foreach $send (@data) {
    print $rem_socket $send;
}