#!/usr/bin/perl -w
# serverIO.pl - a simple server using 
# IO::Socket

use strict;
use IO::Socket;

my $sock = new IO::Socket::INET(
                   LocalHost => 'localhost',
                   LocalPort => 7890,
                   Proto     => 'tcp',
                   Listen    => SOMAXCONN,
                   Reuse     => 1);

$sock or die "no socket :$!";

my($new_sock, $c_addr, $buf);
while (($new_sock, $c_addr) = $sock->accept()) {
    my ($client_port, $c_ip) =
                     sockaddr_in($c_addr);
    my $client_ipnum = inet_ntoa($c_ip);
    my $client_host =
             gethostbyaddr($c_ip, AF_INET);

    print "got a connection from: $client_host",
          " [$client_ipnum]\n";

    while (defined ($buf = <$new_sock>)) {
        print $buf;
    }
}