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

##</code><code>##

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