#! perl -sw use strict; use Inline C => 'DATA'; my $num = '1'; print looks_like_number($num), $/; __DATA__ __C__ int looks_like_number(SV* var) { dTHX; return Perl_looks_like_number(aTHX_ var); }