Select Code to Download

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

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