heres my new shiny one if you are intersted. you might have to adjust the for loop if you don't want to wait a few hours
use strict;
use warnings;
use Math::BigFloat;
use Math::BigInt;
my @list;
my $a = Math::BigInt->new(1);
my $b = Math::BigInt->new(1);
my $c = Math::BigInt->new(0);
for(my $i = 0;$i < 1000;$i++){
$c = $a->badd($b);
$a = $b;
$b = $c;
push @list, $c;
}
my $Evens = -2;
my $Odds = -1;
my $Interval = 2;
for(my $i = 0;$i < ($#list/2);$i++){
$Odds += $Interval;
$Evens += $Interval;
my $x = Math::BigFloat->new($list[$Odds]);
$x->bround(100000);
print $x->bdiv($list[$Evens]);
print "\n";
}