diff --git a/Perl/Backdoor.Perl.RShell.a b/Perl/Backdoor.Perl.Asmodeus.a
similarity index 91%
rename from Perl/Backdoor.Perl.RShell.a
rename to Perl/Backdoor.Perl.Asmodeus.a
index 93c86ae9..6de1eb83 100644
--- a/Perl/Backdoor.Perl.RShell.a
+++ b/Perl/Backdoor.Perl.Asmodeus.a
@@ -127,4 +127,4 @@ for(;$paddr=accept(CLIENT, SERVER);close CLIENT) {
 
 }
 
-}
\ No newline at end of file
+}