[me@host]$ perl -e 'print `perl -le "print -t STDOUT"`'

[me@host]$ perl -e 'system q(perl -le "print -t STDOUT")'
1
[me@host]$