Help for this page

Select Code to Download


  1. or download this
    ### tcp server
use DBI;
...
  }
  $socket->close();
}
  2. or download this
    ### tcp client
use strict;
...
  my $data= &getFromProducer;
  print "($$) Got $data from procucer.\n";
}