Select Code to Download

#!perl
use 5.024;
...
}
my $dsn = 'dbi:blahblah'; # from config file
my $app = main($dsn);

› perl -MBenchmark=timeit,timestr,:hireswallclock -E"say timestr timei
+t 10, sub { system q(curl http://localhost:5000) }"
connect took 3.0299610154043 seconds
...
connect took 3.0299610154043 seconds
connect took 3.0299610154043 seconds
2.93921 wallclock secs ( 0.03 usr +  0.06 sys =  0.09 CPU) @ 107.53/s 
+(n=10)

› perl -MBenchmark=timeit,timestr,:hireswallclock -E"say timestr timei
+t 10, sub { system q(curl http://localhost:5000) }"
connect took 3.77111188120125 seconds
...
connect took 3.85268922343767 seconds
connect took 3.64333342488772 seconds
17.4764 wallclock secs ( 0.02 usr +  0.09 sys =  0.11 CPU) @ 90.91/s (
+n=10)