use Log::Painless;
        {
           my $old_warn = $SIG{__WARN__};
           $SIG{__WARN__} = sub {
              # my own signal handling;
              $old_warn->(@_);
           };
        }