$SIG{__WARN__} = sub { die $_[0] };
warn "This will be fatal\n";
print "You will never get to this line\n";