sleep&0.05");}sub&limits&{print&"\e[3;2H";for($i=0;$