my @warnings;
$SIG{__WARN__} = sub {
    push @warnings, shift;
};