GetOptions (
    "help|h" => \$help,
    "read|r" => \$read,     
    "generate|g" => \$generate,
);