Surround perl file