#!/usr/bin/perl

use File::Tail;
use Net::WebSocket::Server;


my $file = File::Tail->new(
                name =>'./test.log',
                interval => 1,
                maxinterval => 1,
                );


Net::WebSocket::Server->new(
    listen => 8080,
    on_connect => sub {
        my ($serv, $conn) = @_;
        $conn->on(
            utf8 => sub {
                my ($conn, $msg) = @_;
		while (defined(my $line=$file->read)) {
                $conn->send_utf8('line :'.$line);
		}
            },
        );
    },
)->start;