use Params::Validate qw(:all);
    sub greet {
      my %p = validate(@_, {
        name => 1, # required
        age  => { default => 25 }
      })
    }

    print "Hello, there $name. How does it feel to be $age?\n";