$ ssh localhost 'perl -E'\''say getpeername(\*STDOUT) || die $!'\'''
Socket operation on non-socket at -e line 1.