open( my $jh, '>>', $filename ) or warn "Could not open file '$filename' $!";
say $jh " venus jupiter jd  $now_string";