perl -e '*{" "}=sub{$_="84>>4>>4;;4";s/(.)/chr(ord($1)+53)/eg;do{warn++$i." $_\n";sleep 1}while(1)}and" "->()'

from my friend james