DeCSS in perl -- test vectors?