fixing perl