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