Select Code to Download

sub getnum {
    use POSIX qw(strtod);
...
}

sub is_numeric { defined getnum($_[0]) }