open my $tty, '<', '/dev/tty';
my ($col, $row) = Term::Size::chars (defined $tty ? $tty: *STDOUT{IO});