如果生成警告，我怎样才能使Perl死掉？

I would like my script perl to die whenever a warning is generated, including warnings which are generated by used packages.I would like my script perl to die whenever a w