Help for this page
sub tprint { my $t = time; ... sub getResultsAPI_4 { getResultsAPI(4, 5) } sub getResultsAPI_5 { getResultsAPI(5, 11) } sub getResultsAPI_6 { getResultsAPI(6, 7) }
$ perl pm_11107400.pl 1570989189: API_1: dozing for 12s ... 1570989201: API_1: done 1570989205: API_3: done 1570989211: API_2: done