TString      T_STROKA

#############################################################################
INPUT
T_STROKA
    $var = TString(SvPV_nolen($arg));

#############################################################################
OUTPUT
T_STROKA
    $arg = newSVpv($var.c_str(), $var.size());
