[help] perl + badcom

[branco]

tem tempo que estava tentando fazer um "honeypot" e parei porque nao consegui a 'perfeiçao' agora to voltando atraz e queria saber se alguem sabe como ficaria esse comando :
system("find /i ""$porta"" arquivo.txt");
porta é uma variavel e find /i precisa de "" pra procurar algum argumento em um arquivo e a variavel tambem precisa do "" pra ser executada...
na verdade o programinha ficaria assim é uma combinaçao de netcat com perl e talz...

print "Qual porta ficara em espera ?";
$porta = <>;
nc -L -p $porta -e arquivo.bat

ou seja o netcat vai ficar em escuta na porta que a pessoa desejar e quando ela se conectar vai executar o arquivo.bat que tera esse conteudo :

echo "Olá seu ip foi gravado."
nestat -n >>log.txt
netstat -n >log1.txt
system("find /i ""$porta"" log1.txt" >perigo.txt);
start perigo.txt

(talvez vo tentar baixar um backdor e instalar ele ou um KL mais isso vai depender da galera...)

tambem tem outro erro, se colocar assim nc -L -p $porta -e arquivo.bat o -e arquivo.bat vai ser desconsiderado porque o comando só vai até a variavel, será que da pra resolver isso tambem ? ( tem um jeito pra resolver isso tudo só que vamo tentar dexar o melhor possivel pra galera poder usar melhor...)

thx...

[fast]

mano o comando foreach ''corre pelas linhas'' manja