AnyEvent tail

gistfile1.pl

#!/usr/bin/env perl
use AnyEvent;

if (open my $fh, "|-", "tailf -n 10 ./file") {
    1;
} else {
    my $cv = AnyEvent->condvar;

    my $body;
    my $handle; $handle = AnyEvent::Handle->new(
        fh => $fh,
        on_error => sub {
            warn "error!";
            $handle->destroy;
         },
         on_eof  => sub {
            warn "the end";
            $handle->destroy;
         },
        on_read  => sub {
            $body .= $_[0]->rbuf;
            $_[0]->rbuf = "";
            print $body;
        },
    )
}