$ perl -le "warn t => -t STDOUT"
t1 at -e line 1.

$ perl -le "warn t => -t STDOUT" >2
t at -e line 1.