#!/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;