client.js

function log_it(stuff) {
  $("#log").append(stuff+'<br/>');
}

$(function() {
  var hippie = new Hippie( document.location.host, 5, function() {
                             log_it("connected");
                           },
                           function() {
                             log_it("disconnected");
                           },
                           function(e) {
                             log_it("got message: type = "+e.type+", time = "+e.time);
                           } );
});

server.pl

    mount '/_hippie' => builder {
        enable "+Web::Hippie";
        sub {
            my $env = shift;
            my $interval = $env->{'hippie.args'} || 5;
            my $h = $env->{'hippie.handle'};

            if ($env->{PATH_INFO} eq '/init') {
                my $w; $w = AnyEvent->timer( interval => $interval,
                                             cb => sub {
                                                 $h->send_msg({
                                                     type => 'timer',
                                                     time => AnyEvent->now,
                                                 });
                                                 $w;
                                             });
            }
            else {
                return [ '400', [ 'Content-Type' => 'text/plain' ], [ "" ] ]
                    unless $h;

                if ($env->{PATH_INFO} eq '/error') {
                    warn "==> disconnecting $h";
                }
                else {
                    die "unknown hippie message";
                }
            }
            return [ '200', [ 'Content-Type' => 'application/hippie' ], [ "" ] ]
        };
    };