my $i = 0; for(0..$ENV{BENCHMARK}) { $redis->ping; } my $t0 = [gettimeofday]; $redis->execute(sub { Mojo::IOLoop->stop });; Mojo::IOLoop->start; print $ENV{BENCHMARK} / tv_interval($t0), "\n";