Select Code to Download

open RESULTS, "> $results_file"
                or die "Failed to open $results_file for writing\n";
print RESULTS join("\n", @results);
close RESULTS;

open RESULTS, ">$results_file" or die;
print RESULTS "$_\n" for @results;
close RESULTS;

  $access{$_}{old} ||= 0;               # defaults to avoid warnings
  $access{$_}{new} ||= 0;
  if ($access{$_}{old} > $access{$_}{new}) {
        push @results, "$_";            # keep results rather than pri
+nting
  }

  if (($access{$_}{old} || 0) > ($access{$_}{new} || 0)) {
        push @results, "$_";            # keep results rather than pri
+nting
  }