GetOptions(\%param, 'file:s', 'name:s', 'any:s', 'other:s', 'params:s');
foreach (qw(file name any other params)) {
  die "Option $_ requires an argument\n" if defined($param{$_}) && $param{$_} eq '';
}