Scripting lab with problems solved in perl