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 :