my ($read,$generate,$help); # option switches
GetOptions (
    "h" => \$help,
    "help" => \$help,   
    "r" => \$read,     
    "read"  => \$read,
    "g" => \$generate,
    "generate" => \$generate,
);