Bounces the given argument in your terminal windows' title.
Found this piece of code I wrote the original version for a while ago, again, with help of Juerd.
sub t{print"\e];@_\a";select($@,$@,$@,.02)}
$|++;$t=shift;@l=1..25;for(;;){t" "x$_,$t for@l,reverse@l}