sub examp_func {
  my %args = @_;
  my ($foo, $bar, $baz)
    = proc_args(\%args, ['foo'], ['bar', 'baz'], {bar => 'default'});
  print "foo: $foo\n";
  print "bar: $bar\n";
  print "baz: $baz\n";
}