eval_in_page_with_redefined_alert($mech,$str, sub { print "Caught alert(): @_" });