Select Code to Download

use strict; use warnings;
use Path::Tiny qw/ path /;
...
path( $out )->spew( @lines . " values; max: $max; avg: $avg" );

__END__

$ cat 1159573.out
10 values; max: 10; avg: 5.5