#! /usr/bin/perl -w
use strict;
use Socket;

my $port = shift || 82;
my $proto = getprotobyname(‘tcp’);

socket(SERVER, PF_INET, SOCK_STREAM, $proto) or die «socket: $!»;
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die «setsock: $!»;

my $paddr = sockaddr_in($port, INADDR_ANY);

bind(SERVER, $paddr) or die «Failed bind: $!»;
listen(SERVER, SOMAXCONN) or die «Failed listen: $!»;
print «Daemon started on port $port «;

my $client_addr;
while ($client_addr = accept(CLIENT, SERVER)){

my ($client_port, $client_ip) = sockaddr_in($client_addr);
my $client_ipnum = inet_ntoa($client_ip);
#my $client_host = gethostbyaddr($client_ip, AF_INET);
print «got a connection from: [$client_ipnum] \n»;
print CLIENT «IP $client_ipnum $client_port\n\n»;
close CLIENT;
}