sub fac {
  my ($n) = @_;

  if ($n < 2) {
    return $n;
  }
  else {
    return $n * fac($n-1);
  }
}

// enter here the value (5) that you want caclulate

print fac(5), "\n";