sub fact {
  my $n = shift;
  return 1 if $n <= 1;
  return 2 if $n == 2;
  return "more than three";
}
[download]

Gives accurate results, with enough precision to cover all the numbers I truly understand.