Perl Program to find the factorial of a number

$number = 5; # Change the number here $fact = 1; for( $i = 1; $i <= $number ; $i=$i+1 ){ $fact = $fact*$i; } print "Factorial of $number is: $fact"

Factorial of 5 is: 120

## Comments :