use Getopt::Long;
use strict;
use Data::Dumper;
use IO::File;

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

##</code><code>##

if ($read) {
 - code snippets -
}

##</code><code>##

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