$md_config->{"[cust_num]"} = do {
  my $meth = $web_services->can("GetCustomerNumber");
  sub { unshift @_, $web_services; goto &$meth; }
};