diff --git a/Perl/Backdoor.Perl.Galore.aa b/Perl/Backdoor.Perl.Galore.a
similarity index 97%
rename from Perl/Backdoor.Perl.Galore.aa
rename to Perl/Backdoor.Perl.Galore.a
index 5563302c..71728435 100644
--- a/Perl/Backdoor.Perl.Galore.aa
+++ b/Perl/Backdoor.Perl.Galore.a
@@ -138,4 +138,4 @@ print"\n\n";
 print"Press Any Key To Exit\n";
 $sex;
 chomp($sex=<STDIN>);
-exit 1;}
\ No newline at end of file
+exit 1;}