I think you need Term::Screen:

require Term::Screen;


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

If you want brower screen size, then read Get visitor's screen size..

HTH, Valerio