Polishing the perl version