Worked on learning perl