Select Code to Download

@non_symlinks = grep { ! -l $_ } @all_files;

  my $dirname = 'foo';
  opendir D, $dirname or die "read $dirname - $!";
  my @visible_files = grep !/^\./, readdir D;
  closedir D;
  my @non_symlinks = grep { ! -l "$dirname/$_" } @visible_files;