% perl sample8.pl
[ERROR] SampleModule test error message
[FATAL] SampleModule test fatal message
[ERROR] SampleModule2 test error message
[FATAL] SampleModule2 test fatal message
[ERROR] main error message
[FATAL] main fatal message
% perl sample8.pl -d SampleModule
[DEBUG] SampleModule test debug message
[INFO ] SampleModule test info message
[WARN ] SampleModule test warn message
[ERROR] SampleModule test error message
[FATAL] SampleModule test fatal message
[ERROR] SampleModule2 test error message
[FATAL] SampleModule2 test fatal message
[ERROR] main error message
[FATAL] main fatal message
% perl sample8.pl -d SampleModule -q SampleModule2
[DEBUG] SampleModule test debug message
[INFO ] SampleModule test info message
[WARN ] SampleModule test warn message
[ERROR] SampleModule test error message
[FATAL] SampleModule test fatal message
[ERROR] main error message
[FATAL] main fatal message
% perl sample8.pl -q -d SampleModule
[DEBUG] SampleModule test debug message
[INFO ] SampleModule test info message
[WARN ] SampleModule test warn message
[ERROR] SampleModule test error message
[FATAL] SampleModule test fatal message