{
    no warnings qw( uninitialized );
    my $path = "${dir}${sub_dir}${file}";
}
print "$path\n";