Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl -w -T

...
accept(my $client,$server); 
print 'Client Sez "'.<$client>."\"\n";
print $client "Same to ya, fella\n";
  2. or download this
    #! /usr/bin/perl -w -T

...

# if you comment this out, the 1 way conversation will work
print "Server Sez ".<$server>."\n";