What code have you already written and how does it fail to do what you need?

This site is for learning Perl, not for writing code on request, so please help us help you by providing the code you already have and telling us where you encounter problems.