This little perl script will see if your antivirus software is paying attention by writing a file called aseicar.com to your C: drive. This file contains a small string that is harmless. Your antivirus program should register the new file as the "Test-String Virus". I repeat, THIS FILE IS HARMLESS!
#!/usr/bin/perl
#This little perl script will see if your antivirus software is
#paying attention by writing a file called aseicar.com to your
#C: drive. This file contains a small string that is harmless.
#Your antivirus program should register the new file as
#the "Test-String Virus". I repeat, THIS FILE IS HARMLESS!
open (FILE, ">c:\\aseicar.com");
$A='X50!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+
+H*';
print FILE $A;
close FILE;
