New updates needed for an old computer language humor piece

[Skeleton Man]

You post this to a perl group and yet don't have one for perl ? *L*.. shame
on you...

I would write one myself, but I'm much to busy doing useless things like
writing JAPH signatures that scroll Merry Christmas across the screen.. (see
below).. *L*

--
Regards,
Chris

---- -Begin Xmas Signature------

*__=*Time::HiRes::usleep=>my at m=map{$_+=$_%2?-1:+1}map ord,
split//=>'Ldssx!Bishrul`r!`oe!`!I`qqx!Odv!Xd`s/////////'.
'Ldssx!Bishrul`r!`oe!`!I`qqx!Odv!Xd`s/////////';
unshift @m=>(32)x at m;require Time::HiRes;for(0.. at m){
print map(chr, at m[0..(@m/2-1)])=>"\b"x(@m/2);push at m=>
shift at m=>__(0170*0xA**3);}