moo@cow[21]~>plackup pm-1191821
HTTP::Server::PSGI: Accepting connections at http://0:5000/
--
moo@cow[701]~>time curl http://0:5000/
connect took 3.1313986862815 seconds
0.004u 0.004s 0:00.00 0.0%	0+0k 0+0io 0pf+0w

##</code><code>##

use Time::HiRes qw( sleep gettimeofday tv_interval );
# ...
sub main {
    state $db_handle = mock_connect(+shift);
    sub {
        my $t0 = [ gettimeofday ];
        [ 200, [],
          [ sprintf "Application sub took %.6f seconds\n",
                tv_interval( $t0, [ gettimeofday ] ) ] ];
    };
}
# ...
__END__
moo@cow[56]~>curl http://0:5000/
Application sub took 0.000001 seconds
moo@cow[57]~>curl http://0:5000/
Application sub took 0.000002 seconds