Help for this page
print ("\033[2;5H");
$columns = 5; print ("\033[2;${columns}H");
$a = 5; print ("\033[3;${a}HStart Here $a"); print ("\033[4;${$a+=10}HEnd Here $a\n");
Start Here 4 End Here 14