in reply to "Exporting" Terminal Size to Piped Command?
open my $tty, '<', '/dev/tty'; my ($col, $row) = Term::Size::chars (defined $tty ? $tty: *STDOUT{IO}) +; [download]
Dave.