BEGIN { if (not $] < 5.006) { require warnings; warnings->import } }