open ($log, '>>','log.txt') || die "Couldn't open log.txt: $!";