local $SIG{__WARN__} = \&catch_warnings;
emit_some_warnings();

# catch_warnings($msg)
sub catch_warnings {
    my( $msg ) = @_;
    print "I caught this warning $msg\n";
}