Select Code to Download

sub write_list_to_logfile {
  my ( $list, $logfile ) = @_;
...
  }
  close $file;
}

if ( keys(%known_dirs) ) {
  my @known_dirs = keys(%known_dirs);
  my $known_dirs_filename = "$dir/known_dirs.list";
  write_list_to_logfile(\@known_dirs, $known_dirs_filename);
}