ตัวอย่างการสร้าง Sub ในการหาค่า Factorial()

#!usr/bin/perl
sub FactorialRecursive {
	my ($num) = @_;

	if ($num <= 1) {
		return 1;
	} else {
		return ($num * &Factorial($num-1));
	}
}

sub Factorial {
	my ($num) = @_;

	$result = $num;
	for($i = ($num-1); $i >= 1; $i--) {
		$result *= $i;
	}
	return $result;
}

ตัวอย่างการเรียกใช้ฟังก์ชัน Factorial()

#!usr/bin/perl
print &Factorial(5);
print "\n";
prtint &FactorialRecursive(5);