Select Code to Download

use 5.010;
use List::Util qw(sum);
my @s;
push @s, sum( split ) while <DATA>
say "@s";