What would this code do in PERL?
What would this code do in PERL? Someone psoted this as an answer to a question, but they posted the code in hex. This is the translation. What does it do? Since they felt it was best to translate the code to hex before posting, I suspect the poster may have had ill intentions but i would like to know for sure.