#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");
print FILE $A;