#!perl -l12e
$_=1;($_,$?)=($?,$_+$?),print while$_<4e3 [/sourcecode] OMG: Fibonacci series in one line of perl.