compiled well, but this 
use TST;
TST::test(4444,"ss");

prints called c from perl len:'4444'  str:'(null)'