BEGIN {
    if ($] < 5.006) {
    $INC{"warnings.pm"} = "dummy";
    package warnings;
    *import = sub { };
    *unimport = sub { };
    }
}

no warnings 'once';