#!/usr/bin/env perl
use warnings;
use strict;
use List::Util qw/reduce/;
print reduce { $_[0] * $_[1] } 1..6;
__END__
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
0