https://www.perlmonks.org/?node\_id=155288 for the getopt/usage model.