Найти произведение всех целых чисел от А до В включительно

print "Input 2 numbers\n";
my $a = int(<STDIN>);
my $b = int(<STDIN>);
my $p=($a<$b)?1:die "Wrong input!";
for(my $i=$a;$i<=$b;$i++)
{
    $p=$p*$i;
}
print $p,"\n";

use bigint;
print "Найти произведение всех целых чисел от А до В включительно\n";
print "Введите числа A и B (A<B  и A>0), но не слишком увлекайтесь B\n";
my $prod=1;
$prod *= $_  for <>..<>;
 
print $prod,v10;

say "Найти произведение всех целых чисел от А до В включительно";
my $A = prompt "Введите числo A";
my $B = prompt "Введите числo B большее чем A, но не слишком увлекайтесь;
say[*] $A .. $B;

#!/usr/bin/perl -w
use strict;
use warnings;
use bigint;
use feature 'say';
 
use IO::Prompt;
use List::Util 'reduce';
 
say 'Найти произведение всех целых чисел от A до B включительно.';
my $numA = prompt "Число A: ";
my $numB = prompt "Число B: ";
 
#my $prod = reduce { no warnings 'once'; $a * $b } $numA .. $numB;
# или
my $prod = reduce { our($a,$b); $a * $b } $numA .. $numB;
say $prod;

my $prod = reduce { $a * $b } $numA .. $numB;