% perl sample4.pl
main error message
main fatal message
% perl sample4.pl -q
% perl sample4.pl -v
main info message
main warn message
main error message
main fatal message
% perl sample4.pl
main error message
main fatal message
% perl sample4.pl -q
% perl sample4.pl -v
main info message
main warn message
main error message
main fatal message