sub use_tar_dirs {
     my ($target_dir, $filename) = @_;
     ...