5 lines
111 B
Perl
5 lines
111 B
Perl
|
use Term::Size;
|
||
|
|
|
||
|
|
($cols, $rows) = Term::Size::chars;
|
||
|
|
print "The terminal has $cols columns and $rows lines\n";
|