use strict;
use PDL;

my $numbers = pdl (2,3,4,5);
my $total = prod($numbers);
print $total,"\n";