use Inline C;

my $var = shift;

print +(isnum($var) ? "is a number" : "not a number"), ": $var", $/;

__END__
__C__

int isnum(SV* val) {
  return Perl_looks_like_number(val);
}