Lines Matching refs:listen
40 my $listen = IO::Socket::INET->new(LocalAddr => 'localhost',
57 my $port = $listen->sockport;
61 my $sock = $listen->accept() or die "accept failed: $!";
102 $listen = IO::Socket::INET->new(LocalAddr => 'localhost', Listen => '', Timeout => 15) or die "$!";
103 $port = $listen->sockport;
108 last SERVER_LOOP unless my $sock = $listen->accept;
116 $listen->close;
229 $listen = IO::Socket::INET->new(LocalAddr => 'localhost', Listen => 2, Proto => 'tcp', Timeout => 15) ||
232 die if( !defined( $listen));
233 my $serverport = $listen->sockport;
346 last SERVER_LOOP unless my $sock = $listen->accept;
373 $listen->close;