in reply to Fork horror

not your question, but: have a look at Getopt::Std or better: Getopt::Long

In Section Seekers of Perl Wisdom