Select Code to Download

#!/usr/bin/perl -w
use strict;
...
while ((scalar @digests) == $chunk && ($now-$start) < ($stop-$avg));  
+# we haven't exceeded max time and we've probably
                                                                      
+# got time for another iteration