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