Как я могу заставить Perl умереть, если сгенерировано предупреждение?

Я бы хотел, чтобы мой скрипт perl умирал всякий раз, когда генерируется предупреждение, включая предупреждения, которые генерируются используемыми пакетами.

Например, он должен исчезнуть:

use strict;
use warnings;
use Statistics::Descriptive;

my @data = ( 8, 9, 10, "bbb" );
my $stat = Statistics::Descriptive::Full->new();
$stat->add_data(@data);

use warnings FATAL = > 'all'; не поможет, поскольку имеет лексическую область видимости. Test :: NoWarnings также не работает, поскольку не уничтожает скрипт.