perl -E'{$_.=say;redo}'