Sorry about getting back so late it is getting busier over here. The message doesn't get printed into the eadas.log file by the filehandler LOG. This was puzzling me because my other messages are being printed into the eadas.log file by the filehandler OK. There are no error messages being reported. What would be the best way to check the return values for the calls you mention and so that they can be checked?
open(LOG, ">> $log/eadas.log") or die "Can't open $log/eadas.log: $!\n
+";
LOG->autoflush(1);