perl -we '$tty=qx(tty);$tty=~s!^/dev/!!;print $tty'