my ($num, $str);
sub_from_xs(\$num, \$str);