>perl -E 'use List::Util qw( sum ); say sum grep { $_%2==0 } (1..10)'
30
>