my ($col, $row) = Term::Size::chars *STDOUT{IO};