use correct perl for test