sub foo {
        local $SIG{__WARN__} = sub {
                say "warning passiert, breche ab. @_";
                die '__INTERNAL_WARNING__';
        };
        warn 'Das ist ein Test';
        say 'Ein Text, der nie kommt';
}

eval {
        foo();
};
if ($@ and $@ !~ /^__INTERNAL_WARNING__/) {
        die $@;
}

warn 'Warning ausserhalb';
say 'Ganz zum Schluss';