Made a modification to keep perl from messing up prompts