Help for this page

Select Code to Download

Select or download this

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