From what I can see, the correct code in Pointer would be:

use Pointer::long;
my $p=pointer('long');
$p->to($addr); # where $addr is something like 0x123456
$data=$p->get;
[download]