use strict; use warnings; do not use depreacted perl syntax