my $log_fn  = 'log';
my $log_qn  = catfile($log_dir_qn, $log_fn);
my $log_fqn = rel2abs($log_qn);
open(my $log_fh, '<', $log_qn);

my $log_dir_fn  = 'log';
my $log_dir_qn  = catdir($app_dir_qn, $log_fn);
my $log_dir_fqn = rel2abs($log_dir_qn);
opendir(my $log_dir_dh, $log_dir_qn);