#!/usr/bin/perl -l

use strict;
use warnings FATAL => 'syntax';
use List::Util qw/reduce/;

print reduce( sub {
    $a * $b;
}, 1..6);