#!/usr/bin/perl -l

use strict;
use warnings;
use Inline C => <<'END_C';

void foo( SV *sv ) { 
if( sv ) { 
    printf( "%s\n", SvPV_nolen( sv ) );
    return;
    }
}

void bar( SV *sv ) {
    printf( "%i\n", SvPOK( sv ) );
}

END_C

foo('asdf'); 
foo(1); 
bar(0);