Create perl.py

Fix this code so the output isn't ugly~