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;

##</code><code>##

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

##</code><code>##

$ perl -MPointer -le 'print pointer->of_scalar(42)->get_pointer->get_pointer->get_string;'
Segmentation fault

##</code><code>##

perl -MPointer -MPointer::int -le 'print ((pointer->of_scalar(42)->get_pointer("int") + 3)->get)'
42