Is this a Perl question or are you merely dropping a line in anything that looks like water?

If Perl-related, show us what you've tried and where you're stuck... or simply follow roboticus suggestion and see what you find. If the topic is not Perl, maybe a little searching the web will work better than asking at a Perl-specific site.