[Perl 6] Subroutine overloading

multi congratulate($name) {
    "Happy birthday, $name".say;
}
multi congratulate($name, $age) {
    "Happy {$age}th birthday, $name".say;
}

congratulate('Larry');
congratulate('Bob', 45);