diff options
-rwxr-xr-x | bin/nato | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -49,6 +49,12 @@ if (!Getopt::Std::getopts('h', \%opts)) { exit 2; } +if ($opts{h}) { + usage *STDOUT; + help *STDOUT; + exit; +} + my %DICT = ( 'a' => 'Alfa', 'b' => 'Bravo', |