Update: I put my golf shoes on and made the code a bit smaller - it's now only 43 characters wide (without the message). This should prevent it from being trashed by mail clients which wrap at 70 columns.

#!/usr/bin/perl -w
$,=' ';open X,$0;$m=$,x22;map{s;#\s(.*)#$;#        Put #
$m.=$1;meg}(<X>);$|++;$\="\r";$n='\|/-';$l#       your #
=length$m;for(0..2*$l){;$r=sprintf"%.22s",#    message #
substr($m,($_%$l),22).$m;$d=substr($n,$_%4#      here. #
,1);print$,,$d,$r,$d;select($2,$',$@,.1);}#  Have fun! #
[download]

Also changed the animation from a heartbeat to a spinner.