Perl 6 Syntax: subroutines

my $pi = 3.14159;

print circumference(6.378e3);

sub circumference(Num $radius) {
  return($pi * $radius ** 2);
}