Select Code to Download

use warnings;
use List::Util;
my $reduced = List::Util::reduce { $a + $b } 1, 2, 3, 4;
print "$reduced\n";
()=sort{;}();

my $pkg = caller;
eval qq[ package $pkg; our \$a; our \$b; ];