Select Code to Download

   readdir ($DIR);    # ignore .
   readdir ($DIR);    # ignore ..

  @files = grep {/^(?!\.{1,2}\z)/} readdir($DIR);