use Getopt::Long::Descriptive;

my ($opt, $usage) = describe_options(
  'my-program %o <some-arg>',
  [ 'server|s=s', "the server to connect to"                  ],
  [ 'port|p=i',   "the port to connect to", { default => 79 } ],
  [],
  [ 'verbose|v',  "print extra stuff"            ],
  [ 'help',       "print usage message and exit" ],
);

print($usage->text), exit if $opt->help;