our $last_warning = ''; $SIG{__WARN__} = sub { $last_warning = shift; } ... code that generates warning ... ... code that checks contents of $last_warning ...