use warnings;

##</code><code>##

use warnings;
$SIG{ __WARN__ } = sub { confess q{Got a warning: @_} };