In the past I've used the GetTerminalSize() function from Term::Readkey. I would also set a signal handler for $SIG{WINCH} to call the function again if someone resizes the window.

I hope this is helpful.