modifiche per il perl