GetOptionsの引数を1つのハッシュに入れる

1個ずつスカラーに入れなくても良かった。

use Getopt::Long;
GetOptions(
  \my %options,
  qw/help server port=i host=s/,
);

あとは$options{host} とかで参照。