. It's actually not a big problem, but people here usually don't give out code you want without you showing some effort of your own. But well, since you are new to Perl, you first need to get the basic knowledge. You may want to start with perlintro
. As to your specific problem, The Perl Cookbook
provides a great help.You may be interested specially in Chapter 8: File Contents
Please try it out your code. If you have some problem, or things don't work as you expect, feel free to post your question again. But, 1) provide the code you write, along with your exact problem and/or the part of the code you don't understand, 2) please be patient with your question and avoid to post multiple times.
Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!