Select Code to Download

$md_config->{"[cust_num]"} = sub { $web_services->GetCustomerNumber(@_
+) };

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