Nothing new, but I like this. Run it in a file!

open q(-: j.a.p.h :-) +q-0-+$q;$/=0;seek
        $/,1<<2|1<<1,$/;read($|,$a,tell($|++)*2.5);
{$q=eval qq.q..($_||$a);$_=$q,redo if$q}
        print #:-)
[download]

Note: The code above must be placed in the very beginning of the file that you are going to run! ( no #!/usr/bin/perl, please )

special thanks to japhy's review :-)