It's the deCSS code in perl (to defeat DVD encryption scheme)
this code previously posted here was removed from the monastery to prevent legal threat,
and this article is a clever/funny way to spread the code...
Anyway you should avoid to post this code here in the monastery.
(By the way you should also avoid to execute code when you don't know what it does... ;-)