Select Code to Download

#!/perl/bin/perl.exe

...
  }
# end else of if (not $pm)
}

########################
sub _tests(;$) {
...
  return $rv; # a scalar of the results of all tests
  #usage: print _tests();
}