a test project to learn perl