#!/bin/perl
# имя файла libp.pm
package libp;
sub faktorial {
$faktorial=1;
$number=shift;
if ($number<=1) { return 1;}
else {
foreach (1..$number) {
$faktorial=$faktorial*$_;
}
}
return $faktorial;
}
1 # не хватает в конце