$columns = 5;
print ("\033[2;${columns}H");