use POSIX 'ttyname';

$tty = ttyname(0);