// Detect It Easy: detection rule file
// Author: hypn0 <hypn0@mail.ru>

meta("compiler", "PerlApp");

function detect() {
    if (PE.compareEP("558bec6a..68........68........64a1........50648925........83ec..5356578965..8365....6a..ff15")) {
        for (var i = 0; i < PE.getNumberOfResources(); i++) {
            if ((PE.resource[i].Type == "232") || (PE.resource[i].Name == "BFS")) { // BFS
                if (PE.compare("ff'BFS'01", PE.resource[i].Offset)) {
                    bDetected = true;
                    break;
                }
            }
        }
    }

    sLang = "Perl";

    return result();
}