while (my $msg = <STDIN>) {
    print $sock "$msg\n";
}
close $sock;