in reply to script program (CODE)

What's the question?

In Section Seekers of Perl Wisdom