#! perl -slw
use strict;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => '_1180095', CLEAN_AFTER_BUILD =>0;

int doStuff( SV *sv ) {
    STRLEN len, i;
    unsigned char *bytes = SvPVx( sv, len );

    printf( "%d : ", len );
    // print the hi & lo nybbles, of the unsigned bytes passed, in hex
    for( i=0; i < len; ++i ) {
        printf( "%01x %01x\t", ( bytes[ i ] & 0xf0 ) >> 4, bytes[ i ] & 0x0f );
    }
    printf( "\n" );
    return 1;
}

END_C


doStuff( "\x0f\xf0\xaa\x55\x01\x80" );

doStuff( join '', map chr, 0x00 .. 0xff );

doStuff( pack 'C*', 1 .. 10 );