I looked at the code @ randal but it too heavy to understand for me

Then might I suggest having a read through some of our very fine Tutorials, beginning with Getting-Started-with-Perl, perhaps? (That will get you further than spamming will, at any rate...)

And, of course, there's always teh googles.