7 use subs qw(
      8 error_exit
      9 usage
     10 precheck
     11 generic_check
     12 perl_module_check
     13 print_ok
     14 print_notok
     15 print_info
     16 print_verbose
     17 );