#!/usr/bin/perl -w

undef $/;

$slurp = `stty -a`;

$slurp =~ m/ ([0-9]+) rows;/;
$numrows = $1;
$slurp =~ m/ ([0-9]+) columns;/;
$numcolumns = $1;

print "export LINES=${numrows}", "\n";
print "export COLUMNS=${numcolumns}", "\n";