use Getopt::Long;  # or Getopt::Std, which might be easier to grok.