#!/usr/bin/perl 

use CXN                                           ;

my $nob = new CXN('client')                       ;    

$nob -> cxn                                       ;

print $nob -> recv                                ;

print "client: hello\n"                           ;
print "server: ".$nob -> msg('hello') . "\n"      ;
                                                 
print "client: I am fine\n"                       ;
print "server: ".$nob -> msg('I am fine') . "\n"  ;

print "server: ".$nob -> DESTROY. "\n"            ;