#!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

##</code><code>##

This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2001, Larry Wall

Binary build 633 provided by ActiveState Corp. http://www.ActiveState.com
Built 21:33:05 Jun 17 2002