Select Code to Download

$ perl -Mstrict -Mwarnings -E '
use List::Util qw/reduce/;
...
Name "main::a" used only once: possible typo at -e line 3.
Name "main::b" used only once: possible typo at -e line 3.
720

$ perl -Mstrict -Mwarnings -E '
use List::Util qw/reduce/; $a || $b || 1;
say reduce { $a * $b } 1..6;
'
720

$ perl -Mstrict -Mwarnings -E '
use List::Util qw/reduce sum/; $a || $b || 1;
...
'
720
21