Use Getopt::Config::FromPod.