in reply to To each() their own

BTW: I tried using the $SIG{__WARN__} hook, its works perfectly for any warnings that are from real Perl code; however this mysterious example from an unknown source does not trigger the hook.