{
    local($^W) = 0;    # suppress warnings
    ... your code here ...
  }