Select Code to Download

sub create_subroutine_to_return_constant {
  my ($constant) = @_;
  my $newsub = sub { return $constant };
  return $newsub;
}

  my $PI = create_subroutine_to_return_constant(3);
  $z = $PI->();  # returns 3