The test harnesses don't complain about lines that start with "#" so you can do:    local( $SIG{__WARN__} )= sub { warn "# ",@_ }; to keep the warnings but prevent them from looking unintentional.

        - tye (but don't call me "# Tye")