#!perl use strict; use warnings; use Test::More tests => 1; { local $SIG{__WARN__} = sub { die 'warn:' . join(' ', @_) }; eval <