#!/usr/bin/perl

use strict;
use IO::Handle;

STDOUT->autoflush(1);

my $data_dir='/mnt/data/testdaq';

print
  "Errors in latest_data       :\n";
system("grep -i -e error -e exception -e requested $data_dir/latest_data/*/*.testdaq* $data_dir/latest_data/*/*.dataq*");
