BEGIN {
    unless (eval "require warnings;") {
        eval <<EOD;
sub warnings::import {};
sub warnings::unimport {};
EOD
        $INC{'warnings.pm'} = 'I do not really exist';
    }
} #BEGIN