1 files changed, 20 insertions, 0 deletions
diff --git a/bench/fib b/bench/fib
new file mode 100755
index 0000000000..022d9d0159
--- /dev/null
+++ b/bench/fib
@@ -0,0 +1,20 @@
+#!./perl
+
+sub fib
+{
+    ($_[0] < 2) ? $_[0] : &fib($_[0]-1) + &fib($_[0]-2);
+}
+
+sub myruntime
+{
+    local(@t) = times;          #  in seconds
+    $t[0] + $t[1];
+}
+
+$x = (shift || 20);
+print "Starting fib($x)\n";
+$before = &myruntime;
+$y = &fib($x);
+$after = &myruntime;
+printf("Done. Result $y in %g cpu seconds.\n", $after-$before);
+