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