I only got it as far as:
perl -e'@p=(1,1);map@p=(@p,$p[-1]+$p[-2]),A..R;$\=$,="\n";print@p' [download]
In reply to Fibo Golf challenge on 3 monkeys by RMGir