STDOUT->open(">log.txt") or die "Can't reopen STDOUT: $!";