1 files changed, 14 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/fact b/gnu/usr.bin/perl/lib/perl5db/t/fact
new file mode 100644
index 00000000000..ac25eac1edb
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/fact
@@ -0,0 +1,14 @@
+#!/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);