#! perl
use strict;
use warnings;
use bignum;

my ($even, $odd) = (1, 1);

for (1 .. 47)
{
    $even += $odd;
    $odd  += $even;
    print "phi = ", ($odd / $even), "\n";
}