Select Code to Download

@filenames = grep (!/^\.\.?$/ , readdir (DIR));
closedir DIR;
...
  $size = -s "$file";
  $h{$file} = $size;
}