Check the docs on IO::Socket. Meantime here's a snip I played with to experiment with basic server listening...

#!/usr/bin/perl -w

use strict;
use IO::Select;
use IO::Socket;

my ($data, $fh);

my $ipc_select = IO::Select->new();

my $IPC_SOCKET = new IO::Socket::INET(Listen    => 5,
                                    LocalAddr => 'localhost',
                                    LocalPort => 9000,
                                    Proto   => "tcp" );

print "SOCKET = $IPC_SOCKET\n";

$ipc_select->add($IPC_SOCKET);
print "Listening...\n";
while (1) {
    if (my @ready = $ipc_select->can_read(.01)) {
        foreach $fh (@ready) {
            if($fh == $IPC_SOCKET) {
                #add incoming socket to select
                my $new = $IPC_SOCKET->accept;
                $ipc_select->add($new);
                print "incoming connection...\n";
            } else {
                # Process socket
                if (recv $fh,$data,1024,0) {
                    print $fh $data;
                    print "$data";
                } else {
                    $ipc_select->remove($fh);
                    $fh->close;
                }
            }
        }
    }
}
[download]

You can run this script, and then telnet in on port 9000 (or whatever other port you set it to listen on in 'localport') and it will echo your typing...

ryddler

Are you looking for HTTP::Daemon? Either that or you can roll your own -- see the section on sockets in the perlipc manpage.

I remember reading once that someone had put a little http daemon on the back of his business card as sort of a japh.

use IO::Socket;
my $listen_socket = IO::Socket::INET->new(LocalPort => 80,
    Listen => 10,
    Proto => 'tcp',
    Reuse => 1);

while (my $connection=$listen_socket->accept)
{
    #do whatever you want.
}
[download]

Trinary

______________________________________________
It's hard to believe that everyone here is the result of the smartest sperm.