my $rows = qx/tput lines/; my $curor_up = qx/tput cuu1/;
  for my $no ( 0..10 )
  {   print "$no. Hello World!\n$curor_up";
  }