my $warning;
$SIG{__WARN__} = sub {$warning = shift};