in reply to Append object output to scalar

Hint:
$ perl -le 'print print' 1