#!/usr/bin/perl
$SIG{__WARN__} = sub {die("warning: ",@_)};
warn "hello";
__END__