use Pointer;
my $x   = "Hello, world";
my $sv  = pointer->of_scalar($x);
my $svpv = $sv->get_pointer;
my $pointer_to_string = $svpv->get_pointer;
print $pointer_to_string->get_string;

# or

print pointer->of_scalar("Hello, world")->get_pointer->get_pointer->get_string;