open ACCESS, ">> $log" or die "Cannot open $log: $!";
#or
open (ACCESS, ">> $log") || die "Cannot open $log: $!";