($lines,$cols) = `stty size`=~/(\d+)\s+(\d+)/?($1,$2):(80,25);