Hi,

Use Carriage return '\r'

while (.......){
  #read line x
  print ("processing line: $linenum \r");
}
[download]

Thanks,

Gopal.R