while (<DIAG>){
    while (1) {
        open LOGFILE, ">>$app_root_dir/logs/detailedlog.log";
        while ($line = <DIAG>) {

            if ($line =~ /is higher than 5 seconds/) {
                if ($clock == 0) {
                    $clock = 60;
                    # call "print LOGFILE" then "system(...)", 4 times
                }
                $clock --;
                sleep(1);
            }    
            close LOGFILE;        
        }
        sleep(65);
    }
}