It's about time I had a bash at this obfuscation thing. (I have the camelcode on a shirt already!).

#!/usr/bin/perl -w
$|=1;$ARGV[0]                                         ||=unpack'u',
             qq|:2G5S=%]!;F]T:&5R7T)U8F)L95]";&]W97(`|;
$v=qq|Oo'`. |                                         ;$l=length
             ($ARGV[0]);$b=' 'x$l;do { if (int(rand 5)>
 1) { $r=int(                                         rand($l))}else
           {$r='' }; $bbl{$r}=0 unless($bbl{$r}||$r eq''
);map {substr                                         ($b, $_+sin(($_
          +$bbl{$_})),1,substr($v,$bbl{$_},1))}keys %bbl;
map { $bbl{$_}                                        >=length($v)?
          delete $bbl{$_}:$bbl{$_}++} keys %bbl;print qq
      |$b \n$ARGV[0]\r|;$b=' 'x$l;sleep 1;}until($SIG{INT});
[download]