#!/usr/bin/perl
use Mojolicious::Lite;
use Mojo::Util;

print "Mojo::Util says Monotonic...\n" if Mojo::Util::MONOTONIC;

get '/' => sub {
    shift->render(text => time());
};

app->start();

__END__
$ hypnotoad -f ./test.pl
Mojo::Util says Monotonic...
[Wed Feb 27 13:10:25 2013] [info] Listening at "http://*:8080".
Server available at http://127.0.0.1:8080.
[Wed Feb 27 13:10:25 2013] [info] Manager 30625 started.
[Wed Feb 27 13:10:25 2013] [info] Creating process id file "/home/freman/meh/mojo-clock/hypnotoad.pid".
[Wed Feb 27 13:15:00 2013] [info] Worker 30629 has no heartbeat, restarting.
[Wed Feb 27 13:15:00 2013] [info] Worker 30627 has no heartbeat, restarting.
[Wed Feb 27 13:15:00 2013] [info] Worker 30628 has no heartbeat, restarting.
[Wed Feb 27 13:15:00 2013] [info] Worker 30626 has no heartbeat, restarting.