#!perl -l
use List::Util qw[ reduce ];

print "\$List::Util::VERSION = $List::Util::VERSION\n";
printf "Perl version: %vi\n",$^V;
print reduce{ print "$a $b"; eval "$a + $b" } 1,2,3;
print reduce{ eval "$a + $b" } 1,2,3;
__END__
$List::Util::VERSION = 1.07

Perl version: 5.6.1
1 2
3 3
6
6