require Term::Screen;


$scr = new Term::Screen;
unless ($scr) { die " Something's wrong \n"; }
$rows = $scr->rows;
$cols = $scr->cols;