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}

Replies are listed 'Best First'.
Re: Terminal Window Title Text Stringy Bouncer Thingy.
by Juerd (Abbot) on Jan 26, 2002 at 17:17 UTC
    You're giving Perl and me a very bad name this way ;)

    2;0 juerd@ouranos:~$ perl -e'undef christmas' Segmentation fault 2;139 juerd@ouranos:~$

      2;0 juerd@ouranos:~$ perl -e'undef christmas' Segmentation fault 2;139 juerd@ouranos:~$

      Fortunately this behaviour has been fixed in perl 5.7.2 :)

      [gellyfish@orpheus gellyfish]$ perl5.7.2 -e'undef christmas' Can't modify constant item in undef operator at -e line 1, at EOF Execution of -e aborted due to compilation errors.

      /j\