($rows, $cols) = split ' ', qx"stty size </dev/tty 2>/dev/null";