use POSIX;

$tty = ttyname(0);