Select Code to Download

#!/usr/bin/perl 

...
Action: The uncleanable file is deleted.
Virus: WORM_KLEZ.H
----------------------------------

foreach my $record (@records)
{
...
        print "$key => $$record{$key} \n" ;
    }
}