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

>