use File::Tail::App;

tail_app({
    new          => shift,
    line_handler => sub {
        my ( $line ) = @_;
        # do some stuff with $line
    },
});