#server use strict; use warnings; use IO::Socket; use IO::Select; my $sock = IO::Socket::INET->new(Proto=>"tcp", LocalHost=>"localhost", Listen=>16, Reuse=>1, LocalPort=>3000) || die("Could not create socket!\n"); my $conn = $sock->accept(); my $sel = new IO::Select($sock); if ($sel->can_read()) { print "can read\n"; } #client use IO::Socket; my $sock = IO::Socket::INET->new( Proto=>"tcp", PeerHost=>"Localhost", PeerPort=>3000 ) or die("Could not create socket!\n"); print $sock "abcd\n"; #### use strict; use warnings; use IO::Socket; use IO::Select; my $sock = IO::Socket::INET->new(Proto=>"tcp", LocalHost=>"localhost", Listen=>16, Reuse=>1, LocalPort=>3000) || die("Could not create socket!\n"); my $conn = $sock->accept(); my $sel = new IO::Select($conn); if ($sel->can_read()) { print "can read\n"; }