Select Code to Download

    foreach(qw(name to file action virus))
    {
      $gCurRec->{$_}='';
    }

    my @columns = qw(name to file action virus);
    @{ $gCurRec }{ @columns } = ('') x @columns;

    $gCurRec->{name}=$1   if (/^From:\s*(.+?)\s*$/);
    $gCurRec->{to}=$1     if (/^To:\s*(.+?)\s*$/);

    /^(\w+):\s*(.+?)\s*$/ and $gCurRec->{$1} = $2;

#!/usr/bin/perl -w
use strict;
...
Action: The uncleanable file is deleted.
Virus: WORM_KLEZ.H
----------------------------------