sub greet {
      my ($name, $age) = @_;

      # required param
      $name or die "must supply name" ;
      # optional param, defaults to 25
      $age  ||= 25;

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