A variation on this would be to just clear the whole line between prints. Something like:

$|++;
my $clear = "\r" . ' 'x80 . "\r";
print "quux";
sleep 1;
print $clear, "foo";
sleep 1;
print "\n";
[download]

-sauoq
"My two cents aren't worth a dime.";