void
Foo( str )
     char * str
PPCODE:
     Foo(str, strLen);

##</code><code>##

T_STR_AND_LEN
    ".(unshift(@line, (
    'PREINIT:',
    '    unsigned long '.$var.'Len;',
    'INPUT:')),'').
    "{
        SV * TmpSV = $arg;
        $var = ($type) SvPV( TmpSV , ${\$var}Len);
    };