$|=1;  # switch off buffering or this won't work
print "please wait";
do_something();
print "\rthanks for waiting\n";