The socket will be always opened unless you (or the other peer) explicity closes it.

You did not show the problematic code, then I suggest you read the IO::Socket doc to look to some examples to take The Path. Searching throught the Monastery for socket should give you some code to study.

A little example:

use strict;
use warnings;

use IO::Socket::INET;

# Create a listening socket at 127.0.0.1, port 5000
my $daemon = IO::Socket::INET->new
        ( Listen => 3,
          LocalAddr => '127.0.0.1',
          LocalPort => '5000',
          Reuse => 1,
          Proto => 'tcp'
        )
    || die ">> FATAL: coulnt create tcp server";

my $client;
# Done every time $client connects
while( $client = $daemon->accept ) {
   # Send "hello" to client
   print $client "Hello\n";
   # Get a line from client
   my $response = <$client>;
   ### do some stuff
   # Close the connection
   close($client);
}
[download]

This is a server example, but clients arent too diferent from this example. Read the docs and make tries.