Now using warnings. This ups min perl to 5.6.1