*clone_warn = *warnings::warn;

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