Select Code to Download

sub create_subroutine_to_return_constant {
  my ($name, $constant) = @_;
  my $code = "sub $name { return $constant }";
  eval $code;
}

create_subroutine_to_return_constant('PI', 3);
$z = PI();      # returns 3