use Inline "C"; print is_alpha("foo"); __END__ __C__ int is_alpha( char * str ) { while ( *str ) if ( isalpha( *str++ ) ) return 1; return 0; }