$ perl -MPOSIX=ttyname -le 'print "I am on tty ", ttyname(STDIN);'
I am on tty /dev/pts/34
$ tty
/dev/pts/34