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