http://www.perlmonks.org?node_id=57900

Here is the startup code for a Client server application, it's quite cool!
There is the code for the server and the client: Here is the code for the server you have to change the machine name.
use IO::Socket; use IO::Select; my $machine_addr = 'sb002562'; $main_sock = new IO::Socket::INET(LocalAddr=>$machine_addr, LocalPort=>1200, Proto=>'tcp', Listen=>1, Reuse=>1, ); die "Could not connect: $!" unless $main_sock; print "Starting Server\n"; $readable_handles = new IO::Select(); $readable_handles->add($main_sock); while (1) { ($new_readable) = IO::Select->select($readable_handles, undef, undef +, 0); foreach $sock (@$new_readable) { if ($sock == $main_sock) { $new_sock = $sock->accept(); $readable_handles->add($new_sock); } else { $buf = <$sock>; if ($buf) { print "$buf\n"; } else { $readable_handles->remove($sock); close($sock); } } } } print "Terminating Server\n"; close $main_sock; getc();
Here is the code for the Client you have to change the machine name.
use IO::Socket; use IO::Pipe; my $machine_addr = 'sb002562'; $sock = new IO::Socket::INET(PeerAddr=>$machine_addr, PeerPort=>1200, Proto=>'tcp', ); die "Could not connect: $!" unless $sock; $id = shift; foreach (1 .. 10) { print $sock "From $id: Msg $_: How are you?\n"; } close ($sock);