in reply to how add option to my program?

See the standard Getopt::Long and Pod::Usage modules.

"What should it profit a man, if he should win a flame war, yet lose his cool?"

In Section Seekers of Perl Wisdom