I recognize that snippet. It was mentioned in a journal on Use Perl a week or so ago, with a pointer to a very detailed analysis, on why you should not run it.