Use GetTerminalSize() from Term::ReadKey.
In reply to Re: Dynamic Adaptation in size of Terminal by adrianh in thread Dynamic Adaptation in size of Terminal!!! by madtoperl