Select Code to Download

  gather      => sub {
    if (@_ == 1) {
...
      }
    }
  },

use strict;
use warnings;
...

printf "Total: %0.3fs\n", time - $start;