Perl 6 Syntax: subroutines

print circumference(:radius(6.378e3));

sub circumference(Num $radius, Num ?$pi = 3.14159) {
  return($pi * $radius ** 2);
}