I Love You virus scanner in Perl
Back in May of 2000, I was playing around with Win32 API for Active Perl. I hadn’t programmed in Windows before that and it was cool to mess around with Windows internal settings.
Right around that same time, the “I Love You” virus was creating havoc.
8:30 am in the morning
I was working at UIC at that time. About 200 computers at our Department were infected. We were looking for an anti-virus tool or update from Norton.
10:00am
The “I Love You” virus was covered in the news. People were talking about how fast it is spreading, but still no anti-virus program.
10:30am
I decide to write a home grown version in perl to disinfect affected computers.
11:30am
Norton posts update on their server.
1:30 pm
I finish writing my own anti-virus program in perl.
Moral of the Story
A virus scanner can be written in perl 
Someday, when I have some time, I will have to find the code and upload it online.