my $warning;
$SIG {__WARN__} = sub {$warning = @_ == 1 ? shift : join " ", @_};