Fix perl radius