or download this
sub say_hello
{
...
say_hello(); # says "hello, world"
say_hello({ who => 'temporal'}); # says "hello, temporal"
say_hello({ hello_sub => sub { my $o = shift; say "wazzup, ", $o->{zup
+} // 'homie' }, zup => 'bro' }); # says "wazzup, bro"