# Send side routines
sub connect {
    my ($pkg, $to_host, $to_port, $rcvd_notification_proc) = @_;

    # Create a new internet socket
    my $sock = IO::Socket::INET->new (
                                      PeerAddr => $to_host,
                                      PeerPort => $to_port,
                                      Proto    => 'tcp',
                                      Reuse    => 1);