perl -we '$tty=qx(tty); $tty=~s/.*d...(.*)/$1/; print $tty'