Я не знаю о прямом методе, но синтаксический анализ qx/resize/
должен работать в системах, где доступна команда resize.
Обновление: несколько разбранный код:
my %h = qx/resize/.lines.grep(/\=/).map: { m/(\w+) \= (\d+) /; $/.list };
my ($y, $x) = %h<LINES COLUMNS>;