sub is_number {
     my $arg = shift;
     return defined $arg && !ref $arg && ($arg^$arg) eq '0';
}