Benchmark 1: /tmp/x-go-adie-podu.pl Time (mean ± s): 107.1 ms ± 0.5 ms [User: 94.5 ms, Sys: 12.5 ms] Range (min … max): 106.2 ms … 108.1 ms 27 runs Benchmark 2: /tmp/x-go-adie.pl Time (mean ± s): 50.2 ms ± 0.2 ms [User: 44.5 ms, Sys: 5.7 ms] Range (min … max): 49.7 ms … 50.6 ms 58 runs Benchmark 3: /tmp/x-go.pl Time (mean ± s): 25.7 ms ± 0.1 ms [User: 21.6 ms, Sys: 4.1 ms] Range (min … max): 25.5 ms … 25.9 ms 112 runs Benchmark 4: /tmp/x.pl Time (mean ± s): 7.8 ms ± 0.1 ms [User: 5.3 ms, Sys: 2.5 ms] Range (min … max): 7.6 ms … 8.1 ms 324 runs #### ### /tmp/x-go-adie-podu.pl #!/usr/bin/env perl use strict; use warnings; use Getopt::Long qw( :config ); use Pod::Usage; use autodie; ### /tmp/x-go-adie.pl #!/usr/bin/env perl use strict; use warnings; use Getopt::Long qw( :config ); use autodie; ### /tmp/x-go.pl #!/usr/bin/env perl use strict; use warnings; use Getopt::Long qw( :config ); ### /tmp/x.pl #!/usr/bin/env perl use strict; use warnings;