% perl sample3.pl
[INFO ] info message
[WARN ] warn message
[ERROR] error message
[FATAL] fatal message
% perl sample3.pl -q
% perl sample3.pl --error
[ERROR] error message
[FATAL] fatal message
% perl sample3.pl
[INFO ] info message
[WARN ] warn message
[ERROR] error message
[FATAL] fatal message
% perl sample3.pl -q
% perl sample3.pl --error
[ERROR] error message
[FATAL] fatal message