use IO::Socket::INET;

my $socket = new IO::Socket::INET (
                LocalPort => 8069,
                Proto     => 'tcp',
                Listen    => SO_MAXCONN);

while ($client_socket = $socket->accept())
{
        print "Connection received from ",$client_socket->peerhost(),"\n";

        # Do stuff with the $client_socket...
}

##</code><code>##

$good = 1;

while ($good)
{
        while (<$LOGFILE>)
        {
                 $client_socket->print($_) || $good = 0;
        }
        seek ($LOGFILE, 0, 1);
        sleep 1;
}