RosettaCodeData/Task/Terminal-control-Dimensions/Perl/terminal-control-dimensions.pl

use Term::Size;

($cols, $rows) = Term::Size::chars;
print "The terminal has $cols columns and $rows lines\n";