#!/usr/bin/perl
use strict;
use warnings;
sub fact {
my $n = shift;
if ($n > 1) {
return $n * fact($n - 1);
} else {
return 1;
}
}
fact(5);
#!/usr/bin/perl
use strict;
use warnings;
sub fact {
my $n = shift;
if ($n > 1) {
return $n * fact($n - 1);
} else {
return 1;
}
}
fact(5);