#!/usr/bin/perl -ause 5.10.0;$b++;while($_>$a){$c=$a;$a+=$b;$b=$c;$n++}say$n
1836311903
46
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!