my $string = get_string();
  put_string_ref(\$string);