これは先程のより前に書いた、コードのシンプルだけど大きい桁まで求められないフィボナッチ関数。

#!/usr/bin/perl -w

use strict;
use bigint;
sub fib{
  my ($n) = @_;
  $n <= 1 ? 1 : fib($n-2)+fib($n-1)
}
my $f = fib(@ARGV);
print "$f\n";

やはり大きな数値を求められないのでは実用性に欠ける…（なんの実用性？）。
またまだバグっているためまた今度書きなおそうと思う。あと一般項で求めるパターンがあるんだけどうまく行かなかった。