You have written this code already, but are having problems getting it to run. Solution: post the code fragment that isn't working as you think it should, and many eager Perl Monks will be glad to help you.
You have not written this code and want us to do it for you. Solution: Sorry, you've come to the wrong web site.