open(LOG, ">> $log/eadas.log") or die "Can't open $log/eadas.log: $!\n";
 
LOG->autoflush(1);