Select Code to Download

sub is_numeric {
  use warnings FATAL => qw( numeric uninitialized );
...
  my $x = shift;
  return eval { $x == $x };
}