#!/usr/bin/env perl
use Mojolicious::Lite;
use EV;
use AnyEvent;

# Timer that survives prefork
my $counter = 0;
my $w;
under sub {
  $w ||= AnyEvent->timer(
    after    => 1,
    interval => 1,
    cb       => sub { say $counter++ }
  );
};

# Normal route
get '/' => sub {
  my $self = shift;
  $self->render(text => "Counter: $counter");
};

app->start;