use Params::Validate;
Params::Validate::validate_options(
    normalize_keys => sub { map { local $_ = uc; s/^-//; $_ } @_ }
);