$fh = *STDOUT;
} else {
my $today = dt_from_string();
open $fh, ">",File::Spec->catdir ($text_filename,"notices-".$today->ymd().".txt");
open $fh, ">:encoding(UTF-8)",File::Spec->catdir ($text_filename,"notices-".$today->ymd().".txt");
}
-.