use File::Spec::Functions qw(catfile);
my $filename = catfile($file_dir, q{filename1.log.} . $today_date);