>perl -wMstrict -le
"use List::Util qw(reduce);
 ;;
 use vars qw($a $b);
 my $sum = reduce { $a + $b } 1 .. 100;
 print $sum;
"
5050