my $sock = new IO::Socket::INET ( LocalAddr => 'localhost', LocalPort => 1209, Proto => 'tcp', Listen => 1, Reuse => 1, ); die "$!" unless $sock; my $new_sock = $sock->accept(); close ($sock);