Select Code to Download

  foreach my $file (@dir) {
    if ($file eq '.' || $file eq '..' || $file =~ /\.bak$/) {
      ...
    }
  }