perl base util