sub foo {
   my ($name, $value, $flags) = @_;
   ...
}