Вот портированный perl сплоит на php

http://underwater.cup.su/cs.php