Perl Syntax: subroutines

my $pi = 3.14159;

print circumference(6.378e3);

sub circumference {
  my($radius) = @_;

  return($pi * $radius ** 2);
}