These really aren't that tough to find.
Please reference this link for the original question by a Mr. Jeff Silverman.
I want to build a perl script that adapts dynamically to terminalsize
I am working on a perl program which uses VT100 style escape codes and
runs in gnome-terminal or konsole or rxterm or xterm or similar.
I want to know if there is a way to sent an escape sequence to the
terminal emulator which queries for the current size of the screen and
gets a report back.
Does anybody know how to do this?
This is ridiculous.
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)