Green Spiral has asked for the wisdom of the Perl Monks concerning the following question:

At the moment I am trying to set up a simple socket program on the server side (I am doing this on a remote server, which makes things a little more difficult). I have been going through the few tutorials that I can find, experimenting with the sockets, and have had limited success in sending and receiving data. The big problem I have had is that once I get the program running, it won't completely stop it seems. A close($sock) seems to close the sockets functions completely, but when I try to run it again on the same port, I get a "IO::Socket::INET: Address already in use..." error. It is becoming very frustrating now... Here's the heart of my code for reference:
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);
It is being ran on a Unix machine if that makes any difference.