% 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