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);
[download]

It is being ran on a Unix machine if that makes any difference.