use strict;
use warnings;

sub factorial {
	my $param = shift;

	my $factorial;
	if ($param > 1) {
		return  $param * factorial($param - 1);
	} else {
        $factorial = 1;
     }

}

print factorial(5);