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