Help for this page

Select Code to Download

Select or download this

sub read_msg {
    my ($sock, $bcount, $buf, $msg) = (shift, 0, '', '');
...
    # Return success
    return ($msg, $bcount, '');
}