if ( $ARGV[0] eq "" )
{
        die "Must specify path to the directory with samples\n";
}
 
$DirToNotDetected = $ARGV[0];
 
if ( $ARGV[1] eq "" )
{
        $DirToDetected = $DirToNotDetected . '\detect';
}
else
{
        $DirToDetected = $ARGV[1];
}
 
mkdir("$DirToDetected");
 
$PathTo7z = 'C:\Program Files\7-Zip';
$pass     = 'password';
 
$PathToKasper =
  'C:\Program Files\Kaspersky Lab\Kaspersky Internet Security 7.0';
 
$KasperLogDir = "$DirToDetected";
 
$KasperCMDLine =
"\"$PathToKasper\\avp.com\"  SCAN /fa /i0 /RA:\"$KasperLogDir\\kasperlog.txt\" \"$DirToNotDetected\"";
 
system("$KasperCMDLine");
 
unless ( open( INFILE, "$KasperLogDir\\kasperlog.txt" ) )
{
        die("Cannot open input file $KasperLogDir\\log.txt\n");
}
 
@file_to_parse = <INFILE>;
 
foreach $line (@file_to_parse)
{
 
        chop($line);
        if ( $line =~ /\tdetected\t|\tsuspicion\t/ )
        {
 
                @arr = split( /\t/, $line );
                $detect = $arr[3];
                $detect =~ s/:/_/;
                if ( $arr[1] =~ /\// )
                {
                        @arr = split( /\//, $arr[1] );
                        $arr[1] = $arr[0];
                }
                $path_name = $arr[1];
                system("\"$PathTo7z\\7za\" a -tzip \"$DirToDetected\\$detect\.zip\" \"$path_name\" -y -p$pass\"\n"
                );
                system("del \"$path_name\"");
        }
}
close(INFILE);
print("Done!\n");