Select Code to Download

# Send side routines
sub connect {
...
                                      Proto    => 'tcp',
                                      Reuse    => 1);

use Msg;
 ...
...
       die "Client could not connect to $host:$port\n" unless $conn;
       print "Connection successful.\n";

    # Create a connection end-point object
    my $conn = bless {
        sock                   => $sock,
        rcvd_notification_proc => $rcvd_notification_proc,
    }, $pkg;

sub send_now {
    my ($conn, $msg) = @_;
    _enqueue ($conn, $msg);
    $conn->_send (1); # 1 ==> flush   ??????
}

 $conn->_send (1);

 _send ($conn,1);