Here's an example, using IO::Socket:

#!/usr/local/bin/perl -w

use strict;

use IO::Socket;

my $sock = IO::Socket::INET->new(Listen => 1,
                                 LocalAddr => 'localhost',
                                 LocalPort => 43546,
                                 Proto => 'tcp',
                                 Reuse => 1,
                                );

my $NL = "\015\012";

while (my $client = $sock->accept()) {
    print $client "Hello.  To close connection, type quit$NL";
    while (<$client>) {
        tr/\015\012//d;
        print "Client said $_\n";
        print $client "You said $_$NL";
        last if /^quit/i;
    }
    print "Client quit.\n";
    print $client "Bye!$NL";
    close $client;
}
[download]

Hi. thanks for your reply, it's very useful.

But I was looking for one of those sockets that are like files, on the filesystem, wich would be great, because I need to set restrictions on them (after all, I'm using it to pass commands to a running program)
I think I saw mysql using them. Do you know anything about it?

Thanks..

IO::Socket::UNIX

Chipmunk, that's interesting. I checked the IO::Socket::INET documentation and related pages, plus perlfunc and perlipc, but can't find a description of restricting a listener. I didn't know sockets could do that at all! Can you point to more info on that?

I don't remember where I learned about restricting sockets to specific addresses, and I can't find any really descriptive information on it. Very frustrating... :(

Here is a relevant snippet from perlipc:

       And here's a corresponding server to go along with it.
       We'll leave the address as INADDR_ANY so that the kernel
       can choose the appropriate interface on multihomed hosts.
       If you want sit on a particular interface (like the
       external side of a gateway or firewall machine), you
       should fill this in with your real address instead.
[download]

And here's something from Socket:

       INADDR_ANY
            Note: does not return a number, but a packed string.
 
            Returns the 4-byte wildcard ip address which
            specifies any of the hosts ip addresses. (A
            particular machine can have more than one ip address,
            each address corresponding to a particular network
            interface. This wildcard address allows you to bind
            to all of them simultaneously.)  Normally equivalent
            to inet_aton('0.0.0.0').
[download]

Let's say you have a machine that has two IP addresses: mymachine.example.com and foo.bar.baz.com. A server program which binds to the address mymachine.example.com will only accept connections made to mymachine.example.com. A program which binds to foo.bar.baz.com will only accept connections to foo.bar.baz.com, and a program that binds to localhost will only accept connections to localhost (which must, of course, also be from localhost).

On the other hand, a server program which binds to INADDR_ANY will accept connections made to any address that happens to resolve to the machine in question, including mymachine.example.com, foo.bar.baz.com, and localhost. That's usually what you want.