$ perl -T -le 'print "tty" if -t STDIN'
tty