Just something i whipped up in a lunch break... nothing terribly complex.
$-=80;$;="Just another Perl hacker";$==$|++;$---;while
($->length$;){$=+=(-3.2+rand 7)*rand 6;if($=>$--2-length
){$==$--2-length}elsif($=<$,){$==$,}if($.&&$===($--2-length
)){$_=$..$_;$.=$,;$%=$]if!$;}select$,,$,,$,,0.03;if(!$.&&$=<(
$--length)*.6){$.=chop$;;if($.eq$"){$_=$..$_;$.=chop$;}$~=$*=$,}
if($=>$~){$~=$=;$*=$,}elsif($~-1>$=&&$*>10){$~--}$*++;print"\b"x$-,
':'x$=,$"x($~-$=),$.?$.:$",$"x($--$~-1-length$_),$_,$%?$/:$,;$%&&last}
The first two var's (column width & message) can be modified to suit.
- ><iper
use japh; print;
