$fullpath = join(q{/}, $dir, $filename);