Select Code to Download

use List::MoreUtils qw(any);
...
...
sub importantCriterionForImportantStuff () { return $_ ne ''; }
...
help() unless all { importantCriterionForImportantStuff } IMPORTANT_ST
+UFF;