my perl defaults