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