use Config qw( %Config );

my $ptr_size = $Config{ptrsize};
my $ptr_format =
   $ptr_size == 8 ? 'Q' :
   $ptr_size == 4 ? 'L' :
   die("Unrecognized pointer size");

my $s = unpack 'p', pack $ptr_format, $addr;