Help for this page

Select Code to Download

Select or download this

print "# ";
$msg = <STDIN>;
...
    $msg = <STDIN>;

}

Select or download this

$session = $sock->accept();
while (<$session>)
...
    print $session $send_msg;

}