my $clone_warn = \&warnings::warn;

*warnings::warn = sub {
    print "Look ma!\n";
    $clone_warn->(some_filter_function_i_provide @_);
};