Select Code to Download

{
  my $fi2 = '';
...
  ref_check($fi2, \%ref_check); # tests are run in the subroutine

}

{   ### New test place in front of the earlier test
  my $fi;
...


}

{
  my $iterator;
...
    return $next_file;
  }
}