$ perl -le 'print "yes" if -t STDIN'
yes
$ perl -le 'print "yes" if -t STDIN' < /dev/null
$