my $filen = basename($work_file);
my $filename = s/_bd$/$filen/r;
sysopen HRF, "XXX/$sub/$subsub/$subsubsik/hour_logs/$filename", O_WRONLY | O_CREAT | O_APPEND;
my $filename = basename($work_file);
s/_bd$/$filename/r;
sysopen HRF, "XXX/$sub/$subsub/$subsubsik/hour_logs/$filename", O_WRONLY | O_CREAT | O_APPEND;