use Getopt::Long; use strict; use Data::Dumper; use IO::File; my ($read,$generate,$help); # option switches GetOptions ( "help" => \$help, "read" => \$read, "generate" => \$generate, ); #### if ($read) { - code snippets - } #### my ($read,$generate,$help); # option switches GetOptions ( "h" => \$help, "help" => \$help, "r" => \$read, "read" => \$read, "g" => \$generate, "generate" => \$generate, );