Hi Datz_cozee75,

in these code lines:

open( my $jh, '>>', $filename ) or warn "Could not open file '$filenam
+e' $!";
say $jh " venus jupiter jd  $now_string";
[download]

you only warn if the file could be opened, and, immediately after (and in some other places as well), you try to print to that file handle. I would suggest that a failure to open a file where you want to write is probably a severe enough error for you to want the program to die rather than simply warn.

Only my two cents...