Найти произведение чисел

Вообщем надо сделать так что бы в функции запрашивалось кол-во чисел для поизведения, а затем ввести числа. К примеру мы задаём что нам надо вычислить произведение 3 чисел, а затем вводим эти числа 2*7*8. Реализовать это как функцию.

sub pr
{
   print "Input count: ";
   $count = <STDIN>;
   $i = 1;
   while($count){
   print "\nNum: ";
   $tmp = <STDIN>;
   $i *= $tmp;
   $count--;
   }
   return $i
}

автор: Vourhey