perl strictures