Just open up a new socket for your server and listen on that socket for incoming connections in an accept loop. There are examples in perlipc of both the IO::Socket and, well, non-IO::Socket variety. Just in case you don't want to use that module.

Here's the basic idea:

use IO::Socket;

my $port = 9000;

# set up a new server running on $port
my $server = IO::Socket::INET->new( Proto     => 'tcp',
                                    LocalPort => $port,
                                    Reuse     => 1)
    or die "Can't start server";

# sit in a loop and wait for connections
while ($client = $server->accept()) {
    # handle client
    # ....

    # done with client, so close up connection
    close $client;
}
[download]

Vishu,

This is just further information about how sockets can work for you!

btrott gave you a good example of a single threaded, io blocked socket example.

But there are many variations. What exactly are you looking to do?

Single or multiple connections?
Blocking or Nonblocking IO
Let me know and I'll see how I can help you.

Thanks,
mslattery