The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
% 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