print "\r$_/5" foreach (1..5);
# and then:
print "\n"; # or print ' 'x10, "\n";