1234
$ perl -le 'print (-t STDOUT ? "Yes" : "No")'Yes$ perl -le 'print (-t STDOUT ? "Yes" : "No")' | catNo