#!/usr/bin/env perl

use strict;
use warnings;

chomp(my @lines = `stty -a`);
my ($rows, $columns);
for (@lines) {
    $rows = $1 if /rows (\d+);/;       # linux
    $rows = $1 if /(\d+) rows;/;       # FreeBSD
    $columns = $2 if /columns (\d+);/; # line
    $columns = $1 if /(\d+) columns;/; # FreeBSD
}

print "rows $rows columns $columns\n";

##</code><code>##

rows 45 columns 118